[Delphi] Изобретая колесо

[Язь]

Добрый вечер. В лабе с меня требуют изобретение колеса на Canvas, по сути имитацию движения.

Насколько я понял, либа канваса скудна до безобразия и поворота угла не имеет. Перемещать окружность колеса труда особого не занимает, вопрос в спицах в самом колесе. Решил две спицы собрать из 4 зациклинных линий, каждая должна проходить по 90 градусов и возвращаться в исходное положение, создавая имитацию неразрывного движения. В общем с тригонометрией у меня совсем туго, одна спица получилась, проходит ровно 90 градусов, но размер не сохраняет.

Сам быдлокод:

procedure TForm1.Button3Click(Sender: TObject);
begin
  if (alpha > 3.1415926535897932385/2) then begin
    alpha := 0;
  end;

  Form1.Image1.Canvas.FillRect(ClientRect);
  Form1.Image1.Canvas.Ellipse(a, b, c, d);
  Form1.Image1.Canvas.MoveTo(a+al, cl);
  Form1.Image1.Canvas.LineTo(a+Round(al*abs(sin(alpha))), Round(cl*abs(cos(alpha))));
  Inc(a); Inc(c); Inc(bl); alpha := alpha + (3.1415926535897932385/18);

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.Text := '20';
  Edit2.Text := '40';
  Edit3.Text := '60';
  Edit4.Text := '80';
  a := StrToInt(Edit1.Text);
  b := StrToInt(Edit2.Text);
  c := StrToInt(Edit3.Text);
  d := StrToInt(Edit4.Text);
  al := a;
  bl := b;
  cl := c;
  dl := d;
  alpha := 0;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  //ShowMessage(IntToStr(key)); //Key-codes

  if (Key = 37) then begin
    Button2.Click;              // Left
  end
  else if (Key = 38) then begin
                                // Up
  end
  else if (Key = 39) then begin
    Button3.Click;              // Right
  end
  else if (Key = 40) then begin // Down

  end;
end;

... как исправить баг?