Spuren zwischen MauseDown und MouseUp erzeugen ?

[Praxist]

hallo
ich möchte die Richtung von dem Punkt1 (bei MouseDown) zu dem Punkt2 (Bei MouseUp) eine Strichlinie erzeugen. Nach MouseUp soll diese Spuren wieder weg. Ich möchte also diese nur zu bemerken, wo der Punkt1 ist (der erste klick bei MouseDown)
Kennt jemand diesen Tric ?

[Amateurprofi]

So zum Beispiel:

Delphi-Quellcode:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   if Button=mbLeft then begin
      FStart:=Point(X,Y);
      FEnd:=FStart;
   end;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
   if (ssLeft in Shift) then begin
      DrawLine;
      FEnd:=Point(X,Y);
      DrawLine;
   end;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   if Button=mbLeft then DrawLine;
   end;
end;

PROCEDURE TForm1.DrawLine;
begin
   Canvas.Pen.Mode:=pmXor;
   Canvas.Pen.Style:=psDoT;
   Canvas.MoveTo(FStart.X,FStart.Y);
   Canvas.LineTo(FEnd.X,FEnd.Y);
end;

FStart und FEnd sind unter private oder global deklariert und sind vom Typ TPoint