OOP - polymorfizmus, použitie
4procedure TForm1.Button1Click(Sender:TObject);
4     begin
4         a:=TKruh.Create(100,100,50);
4         with a do
4         begin ZmenFarbu(clGreen);
4                   ukaz;
4         end;
4     end;
4