Object bewegung (richtungen)

[kevSTAR]

hmm es geht immernoch nicht..

ich möchte eine gerade zeichnen in einem angegebenen winkel aber es geht nicht habe folgednes:

form create:

winkel := 90 * pi / 180;
x := 100;
y := 100;
x1 := cos(winkel);
y1 := sin(winkel);
x := round(x1)+500;
y := round(y1)+500;


paintbox.paint:

paintbox1.canvas.Pen.Color := clblack;
Paintbox1.Canvas.MoveTo(100,100);
Paintbox1.Canvas.LineTo(x,y);