Есть 2 простых вопроса!(Pascal)

[Faolan8]

Есть 2 вопроса!
1-ый как проверить наличие пиксела данного цвета в данном квадрате с помощью if.
2-ой как заставить при выполнении if нажать клавишу, в моем случае ЛКМ!
буду благодарен!)
P.S. спасибо кинуть не смогу, мало сообщений.

[VeTaL_UA]

Хз, как в паскале, но я слышал, что паскаль и делфи почти одно и тоже...
Чтение цвета пикселя(только в какой либо ФОРМЕ) на ДЕЛФИ происходит примерно так:
procedure TForm1.Button1Click(Sender: TObject);
var Color:TColor;
R,G,B:byte;
begin
Color:=form1.Canvas.Pixels[100,100];
R:=GetRValue(Color);
G:=GetGValue(Color);
B:=GetBValue(Color);
form1.Canvas.Pixels[100,100]:=RGB(R+20,G+20,B);
end;
Нажатие клавиши в ДЕЛФИ производится примерно так:
procedure EmulateKey(Wnd: HWND; VKey: Integer);
asm
push 0
push edx
push 0101H
push eax
push 0
push edx
push 0100H
push eax
call PostMessage
call PostMessage
end;

Я думаю скомбинировать ты это сможешь сам....