Die Linie beim Zeichnen anzeigen lassen ?

[thomas2009]

Hallo

ich zeichne eine Linie mit drag and drop auf image aber
das Problem die Linie wird nur angezeigt, wenn den 2. Punkt eingegeben wurde (MouseUp)
gibt es eine Möglichkeit die Linie beim Zeichnen anzeigen zu lassen wie bei MS paint ?

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
          Image1.Canvas.Pen.Color := ClBlue;
end;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);
begin
          Image1.Canvas.MoveTo(x,y);
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);
begin
          Image1.Canvas.LineTo(x,y);
end;