problem mit canvas

[brutus]

sehr aussagekräftiger titel

also ich hab folgendes problem:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
VAR i,a:integer;
begin
FOR i:=strtoint(edit1.text) TO
(strtoint(edit1.text)+strtoint(edit3.text)) DO
FOR a:=(strtoint(edit2.text)-strtoint(edit4.text)) TO
strtoint(edit2.text)  DO
canvas.pixels[a,i]:=clred;
end;

funktioniert wunderbar.

bloss wenn ich dass fenster minimiere oder ein anderes fenster öffne - also irgendwie die zeichnung überdeckt wird verschwindet sie auf nimmer wiedersehen!!!!

WIESO ? ? ?


<edit>ich hab hier mal nen screenshot von meinem problem rangehangen</edit>