Probleme mit Canvas beim neuzeichnen

[huberlix]

Folgendes Prob:

Mit

Delphi-Quellcode:

Canvas.Pen.Width:=1
....moveto(x,y)
....lineto(100,200)

Zeichne ich ne dünne Linie.

Dann

Delphi-Quellcode:

Canvas.Pen.Width:=2
....moveto(a,b)
....lineto(500,600)

ne dicke Linie.

Das ganze im Form1.OnPaint.
Ziehe ich nun ein anderes Fenster drüber, bzw resize das Fenster, werden alle Linien dick gezeichnet.???
Woran liegt das?

Gruß, huberlix