OOP - polymorfizmus, použitie
procedure
TForm1.Button2Click(Sender:TObject);
begin
b:=TKruh.Create(300,200,100);
b.ZmenFarbu(clRed); b.ukaz;
end;
procedure
TForm1.Button3Click(Sender:TObject);
begin
c:=TKruh.Create(200,250,70); c.ukaz;
end;