Анимация вращения треугольника в Delphi

[Sina]

Здравствуйте!!! Помогите пожалуйста девушке с Делфи, я в нем совершенно не шарю, но эта программа очень нужна! Если у кого есть скиньте пожалуйста!!!!=)

[Stilet]

Вот у меня тут наработка:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormPaint(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var  ang:double;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormPaint(Sender: TObject);
const a=200;b=100;    q=3;
var p2,p:array of TPoint; i,cx,cy:integer;
begin
 cx:=Width div 2;
 cy:=Height div 2;

 setlength(p,q+1);  setlength(p2,q+1);
 //Canvas.MoveTo(cx,cy);
 for i:=0 to q-1 do begin
  p[i].X:=Round(cx+a*cos(ang));
  p[i].y:=Round(cy+a*sin(ang));
  p2[i].X:=Round(cx+b*cos(ang));
  p2[i].y:=Round(cy+b*sin(ang));
  ang:=ang+(2*pi/q);
 end;
  p[high(p)].X:=p[0].x;   p[high(p)].y:=p[0].y;
  p2[high(p2)].X:=p2[0].x;   p2[high(p2)].y:=p2[0].y;
 Canvas.Polyline(p);
 Canvas.Polyline(p2);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  ang:=ang+0.1; Repaint;
end;

end.

[Sina]

Спасибо огромное)) Щас еще сама сама попробую скорость вращения через изменять через СкролБар)