rand um ein bild malen per mouse move und dann löschen?

[Nicodius]

wie mach ich das?

von bild1- beim nächsten markieren rahmen weg und bild 2 markieren

Delphi-Quellcode:

procedure TForm1.ImageMousM(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var TheRect: TRect;
begin
 TheRect := Rect(TImage(Sender).Left-5,TImage(Sender).Top-5,TImage(Sender).Width+5,TImage(Sender).Height+5);
 Form1.Refresh;
 Form1.Canvas.FrameRect(TheRect);
  end;

end.

das geht nid =)

wie mach ich das?