OOP - polymorfizmus, použitie
4var a,b,c:TKruh;
4      poc:integer;
4
4procedure TForm1.FormCreate(Sender:TObject);
4begin
4      g:=Image1.Canvas;
4end;
4