Нужно нарисовать и задать движение в Delphi!

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    ang: Double; //угол поворота
    r1, r2: integer;
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  r1,r2,d,xc,yc:integer;
  u,a:real;
implementation
 
{$R *.dfm}
procedure Kvadrat(x,y,r:integer;u:real;cv:TCanvas);
var p:array[1..4]of Tpoint;
    i,xz,yz:integer;
    a:real;
begin
a:=u;
for i:=1 to 4 do
 begin
  p[i].x:=x+round(r*cos(a));
  p[i].y:=y-round(r*sin(a));
  a:=a+pi/2;
  end;
with cv do
 begin
  //зеленый
  pen.Color:=clGreen;
  moveto(p[1].x,p[1].y);lineto(x,y);
  moveto(x,y);lineto(p[2].x,p[2].y);
  moveto(p[2].x,p[2].y);lineto(p[1].x,p[1].y);
  brush.Color:=clGreen;
  xz:=(x+p[1].x+p[2].x) div 3;
  yz:=(y+p[1].y+p[2].y) div 3;
  floodfill(xz,yz,clGreen, fsBorder);
  //красный
   pen.Color:=clRed;
   moveto(p[2].x,p[2].y);lineto(x,y);
   moveto(x,y);lineto(p[3].x,p[3].y);
   moveto(p[3].x,p[3].y);lineto(p[2].x,p[2].y);
   brush.Color:=clRed;
   xz:=(x+p[2].x+p[3].x) div 3;
   yz:=(y+p[2].y+p[3].y) div 3;
   floodfill(xz,yz,clRed,fsBorder);
   //синий
   pen.Color:=clBlue;
   moveto(p[3].x,p[3].y);lineto(x,y);
   moveto(x,y);lineto(p[4].x,p[4].y);
   moveto(p[4].x,p[4].y);lineto(p[3].x,p[3].y);
   brush.Color:=clBlue;
   xz:=(x+p[3].x+p[4].x) div 3;
   yz:=(y+p[3].y+p[4].y) div 3;
   floodfill(xz,yz,clBlue,fsBorder);
   //белый
   pen.Color:=clWhite;
   moveto(p[4].x,p[4].y);lineto(x,y);
   moveto(x,y);lineto(p[1].x,p[1].y);
   moveto(p[1].x,p[1].y);lineto(p[4].x,p[4].y);
   brush.Color:=clWhite;
   xz:=(x+p[4].x+p[1].x) div 3;
   yz:=(y+p[4].y+p[1].y) div 3;
   floodfill(xz,yz,clWhite,fsBorder);
  end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
d:=20;
xc:=ClientWidth div 2;
yc:=ClientHeight div 2;
r1:=xc div 2;
r2:=yc div 2;
u:=2*pi;;
a:=-pi/4;;
DoubleBuffered := true;
Timer1.Interval := 100;
end;
 
procedure TForm1.FormPaint(Sender: TObject);
var x,y:integer;
begin
x:=xc+round(r1*cos(u));
y:=yc+round(r2*sin(u));
Kvadrat(x,y,d,u,Form1.Canvas);
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
u:=u-0.1;
if u<0 then u:=2*pi;
a:=a+0.2;
if a>2*pi then a:=0;
Form1.Repaint;
end;
 
end.