OOP - polymorfizmus, použitie
procedure
TForm1.Button5Click(Sender:TObject);
begin
if a<>nil then with a do
begin if vid then skry; Free; a:=nil; end;
if b<>nil then with b do
begin if vid then skry; Free; b:=nil; end;
if c<>nil then with c do
begin if vid then skry; Free;
c:=nil; end;
end;