OOP - polymorfizmus, použitie
procedure
TForm1.Button4Click(Sender:TObject);
begin
poc:=100; Timer1.Enabled:=true;
end;
procedure
TForm1.Timer1Timer(Sender:TObject);
begin
if a<>nil then a.posun(3,2);
if b<>nil then
b.posun(-5,-1);
if c<>nil then c.posun(2,-3);
dec(poc);
if poc<=0 then
Timer1.Enabled:=false;
end;