linienproblem!

[implementation]

Nimm OnMouseMove als das Event und rufe darin Canvas.MoveTo() und Canvas.LineTo() auf.

Edit:

Delphi-Quellcode:

procedure TForm1.Image1MouseMove(Sender: TObject; ... );
begin
  if ( ... ) then
  begin
    Image1.Canvas.MoveTo( ... );
    Image1.Canvas.LineTo( ... );
  end;
end;