Zeichenprogramm erstellen: wie die Linien zeichnen?

[malo]

Zitat von Steve:

Hi,

gib Deinem Form ne Boolsche Variable z.B. MouseIsDown, setz diese im OnMouseDown auf True, im OnMouseUp auf False. Im OnMouseDown gehst Du mit TCanvas.MoveTo noch auf den "Startpunkt", im OnMouseMove wird mit TCanvas.LineTo ne Linie gezeichnet, falls MouseIsDown=true ist.

Gruß
Stephan

Genau das HAB ich doch schon gemacht. Ein paar Posts weiter oben ist mein QuellCode dazu. Und da steht auch mein Problem. Und zwar immer, wenn ich anfange zu zeichnen, zeichnet Canvas mir eine senkrechte Linie nach oben bis zu meinem Cursor. Und ich weiß nicht, warum oder gar, wie ich es verhindern kann.