Есть код но почему то не правильно работает

[-ushёl-]

запущенная программа должна выводить движущуюся окружность,но в чём то проблема??Не пойму почему
unit Unit1;

interface

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

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

var
Form1: TForm1;
x,y:byte;
dx:byte;
implementation
{$R *.dfm}

procedure Ris;
begin
Form1.Canvas.Pen.Color:=Form1.Color ;
Form1.Canvas.Ellipse(x,y,x+10,y+10) ;
x:=x+dx;
Form1.Canvas.Pen.Color:=clBlack;
Form1.Canvas.Ellipse(x,y,x+10,y+10) ;

end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Ris;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
x:=0;y:=10;dx:=5;
timer1.Interval:=50;
form1.Canvas.Brush.Color:=form1.Col or;

end;
end.

[Z1000000]

Ты TTimer то , того ... Активизируй уже...

procedure TForm1.FormActivate(Sender: TObject);
begin
x:=0;y:=10;dx:=5;
timer1.Interval:=50;
Timer1.Enabled := True;
form1.Canvas.Brush.Color:=form1.Col or;
end;