Inhalt der Paintbox verschwindet bei überlappenden Fenstern

[Diamont]

Hm.. Ich wollte probieren auf der Paintbox paintmäßig rumzumalen und verwende dazu diese Evens:

Delphi-Quellcode:

procedure TForm1.BoxMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  with Box.Canvas do begin
   moveto(X,Y);
   lineto(X,Y);
  end;
  drag := true;
  Plast.X := X;
  Plast.Y := Y;
end;

Delphi-Quellcode:

procedure TForm1.BoxMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 if drag then begin
  with Box.Canvas do begin
   pen.Color := FCol;
   brush.Color := BCol;
   moveto(Plast.X,Plast.Y);
   lineto(X,Y)
  end;
   Plast.X := X;
   Plast.Y := Y;
 end;

Delphi-Quellcode:

procedure TForm1.BoxMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 drag := false;
end;

Wie mach ich das denn dann im OnPaint Ereigniss?
Ich weiss ja nicht ob der Mausbutton gerade gedrück ist und wo sich der Cursor gerade befindet.