procedure TForm1.Button1Click(Sender: TObject);
var dc :hdc;
pos1,pos2,a,b,c,f1,f2 : integer;
begin
a := strtoint (edit1.text);
b := strtoint (edit2.text);
c := strtoint (edit3.text);
pos1 := strtoint (edit4.Text);
pos2 := strtoint (edit5.Text);
for f1 := a to b do begin
for f2 := a to c do begin
dc := getdc (0);
Color := getpixel(dc,f1,f2);
releasedc (0,dc);
if edit6.text =''
  then begin
  edit6.text := '$00000000';
  end;
  label1.Caption := colortostring (color);
if color = stringtocolor (edit6.text)
  then begin
  edit6.Text := '010';
  end
  else
  edit6.text := '000';
  end;
  end;
  end;