Trieda TKruh a TStvorec
4     
4  var g:TCanvas;
4  type TKruh = class
4         private
4   x,y,r:integer; f:TColor; vid:boolean;
4         public
4         constructor Create(xx,yy,rr:integer);
4         procedure ukaz; 
4         procedure skry;
4         procedure ZmenFarbu(ff:TColor);
4         procedure posun(dx,dy:integer);
4  end;