Problem beim umsetzten vom Spiel "Achtung die Kurve"

[mr-unbekannt]

sodala

ich habe es geschafft meine 6 bunten linien zu erzeugen...

so:

Delphi-Quellcode:

procedure TForm1.TimerRotTimer(Sender: TObject);
var s: double;
begin
s := 1;

  lrot(s);

  form1.flaeche.surface.Canvas.Release;
  form1.flaeche.Flip;
end;

procedure lrot(s: Double);
begin

 arot := arot+ s;
 brot := brot+ s;

form1.flaeche.Surface.canvas.Pen.Color := clRed;
form1.flaeche.Surface.canvas.Pen.Width := 5;

  form1.flaeche.surface.Canvas.MoveTo(xrot, yrot);
  form1.flaeche.surface.Canvas.LineTo((xrot + round(arot)), yrot + round(brot));
  form1.flaeche.surface.Canvas.Release;
  form1.flaeche.Flip;
end;

s ist die schrittweite...

folgendes problem:

die linien werden nur stufenweise länger... -> schaut schlecht aus

&

die linien sollen nicht alle in die gleiche richtung starten...

kann mir da bitte wieder jemand helfen?

danke