Delphi-Quellcode:
procedure TForm1.FormMouseMove (Sender: TObject; Shift: TShiftState;
X,Y: Integer);
begin
if MausGedrueckt
then Canvas.LineTo (X,Y)
end;
Da musst du auch noch MoveTo reinbringen, denn sobald LineTo ausgeführt wird, gibt's ja das vorige MoveTo nicht mehr
