procedure
TStvorec.ZmenFarbu(ff:TColor);
begin
f:=ff; if vid then ukaz;
end;
procedure
TStvorec.posun(dx,dy:integer);
var
b:boolean;
begin
b:=vid; if vid then skry;
inc(x,dx); inc(y,dy);
if b then ukaz;
end;
OOP