procedure TForm1.BitBtn1Click(Sender: TObject);
begin
panel1.Visible:=true;
end;
end.
а при втором нажатии чтоб выполнялось panel1.Visible:=false;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
panel1.Visible:=true;
end;
end.
panel1.Visible:=not(panel1.Visible);