pixel scannen stoppen

[Wadim]

hi,

hier meine code:

Delphi-Quellcode:

procedure TDemoBar.Timer1Timer(Sender: TObject);
var dc :hdc;
a,b,c,f1,f2,d : integer;
begin
a := strtoint (edit1.text);
b := strtoint (edit2.text);
c := a + 200;
d := b + 200;
pos1 := strtoint (edit3.Text);
pos2 := strtoint (edit4.Text);
for f1 := a to c do begin
for f2 := b to d do begin
dc := getdc (0);
panel4.Color := getpixel(dc,f1,f2);
releasedc (0,dc);
if panel4.Color = $0000C91C
  then begin
  edit5.text := 'die farbe gibts es';
  end
  else
  edit5.text := 'die farbe gibts es nicht';
  end;
  end;
  end;

jetzt will ich wissen wie sag ich ihm das wenn er in das then gekommen ist mit dem scannen aufhören soll-das ist jetzt ein einfaches beispiel das mit dem befehl funktioniert aber sobald ich ein anderen befehl einfüge klapt es nicht mehr so gut!!

gibt es da überhaubt so eine befehl z.b. destroy scan oder irgendwie sowas

danke

mfg wadim