problem mit Timer

[Arrayuser]

Hallo, ich experementiere etwa mit med Timer, hab aber kleine probleme:

Ich möchte das eine kugel(ellipse) auf einer image mit hilfe des timers bewegt, ich habs mir überlegt das diese kugel jede sekunde um 50 pixel weiter bewegt, dazu hab ich einen code:

procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Edit1.Text:=Timetostr(time);
form1.Timer1.Enabled:=true;
form1.Timer1.OnTimer:=button1click;
timer1.Tag:=4;
with image1.Canvas do
begin
pen.Color:=clred;
brush.Color:=clred;
ellipse(5*timer1.Tag,5,45*timer1.Tag,45);

end;
end;

es wird zur zeit ein großer oval gezeichnet.

ich weiß das da etwas mit dem tag gemacht werden muss, diese ist bei mir aber statisch, ich möchte das dieser sich mit jeder sekunde verändert.

Hilfe bitte