Innerhalb eines Image eine "unsichtbare" Linie anzeigen.

[shifter]

Zwei Tage rumquelen ist zu viel,
deshalb folgende frage.

Ich möchte auf einem Bild der sich in TImage befindet mit der linke Maustaste ein punkt makieren, wenn ich jetzt die Maus bewege soll eine Linie gezeichnet werden von der Anfang Position bis zur der Aktuelen Maus Position. Wenn ich Maustaste. Es soll dienen zur Winkelberechnug.

Folgendes habe ich angefangen :

Delphi-Quellcode:

procedure TForm18.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  xs  :=  x;          // Xs - Start
  ys  :=  y;          // Ys - Start
  md  :=  True;       // MausTaste
  Image1.Canvas.Pen.Style := psClear;
  Image1.Canvas.MoveTo( x,y );
end;
procedure TForm18.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  If  md = False Then Exit;
  Image1.canvas.Pen.Mode := pmnotxor;
  Image1.canvas.MoveTo( xs,ys );
  Image1.Canvas.LineTo( xe,ye );
  Image1.canvas.MoveTo( xs,ys );
  Image1.Canvas.LineTo(x,y);

  xe  :=  x;          // Xe - Ende 
  ye  :=  y;          // Ye - Ende
end;
procedure TForm18.Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  md  :=  False;
end;

Das Ganze sieht richtig Schlecht aus.

Gibt es eine "Schönere" wariante ?

MfG
S.Launer