[eXplorer]

так что ли?..

Код:

procedure TForm1.Button6Click(Sender: TObject);
begin
if PageControl1.Visible=False

then begin
PageControl1.Visible:=True;
Button6.caption:='спрятать';
end
else
begin
PageControl1.Visible:=False;
Button6.caption:='показать';
end;

end;