OOP - polymorfizmus
procedure
TKruh.skry;
begin
g.Pen.Color:=clWhite;
g.Brush.Style:=bsClear;
g.Ellipse(x-r,y-r,x+r,y+r); vid:=false;
end;
procedure
TKruh.ZmenFarbu(ff:TColor);
begin
f:=ff; if vid then ukaz;
end;