Pomoc s animací – Delphi – Fórum – Programujte.com

Ahojky.Já mám udělat animaci traktoru,který se pohybuju.Musím tam napsat kody,abych ten traktor nakreslila..Ale nějak mi to nejde udělat aby vypadal tak jako traktor a aby byl zmenšený..Moc děkuju předem..

var
Form1: TForm1;
var x,y,z: integer;

implementation

{$R *.nfm}

procedure Traktor;
begin
with form1.Canvas do
begin
Brush.Color:=ClRed;
Rectangle(x+50,y+25,z+150,z+75);
Brush.Color:=ClBlue;
Ellipse(x+65,y+100,x+90,y+75);
Ellipse(x+100,y+100,x+135,y+55);
Brush.Color:=ClYellow;
Rectangle(x+100,y+0,z+150,z+25);
end;
end;

procedure Traktor1;
begin
with form1.Canvas do
begin
Brush.Color:=ClBtnface;
Pen.Color:=ClBtnface;
Rectangle(x,y,x+250,y+250);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=true;
end;


procedure TForm1.Timer1Timer(Sender: TObject);
begin
Traktor1;
Traktor;
x:=x+1;
y:=y+1;
z:=z+1;

end;

end.