Spuren zwischen MauseDown und MouseUp erzeugen ?

[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