dodefinujeme novú triedu TStvorec - podtriedu TKruh
type
TStvorec
= class(TKruh)
public
procedure ukaz;
procedure skry;
procedure ZmenFarbu(ff:TColor);
procedure posun(dx,dy:integer);
end;