procedure TForm1.actShowToolBarExecute(Sender: TObject);
begin
(Sender as TAction).Checked := not (Sender as TAction).Checked;
ToolBar1.Visible := (Sender as TAction).Checked;
end;
procedure TForm1.actShowToolBarUpdate(Sender: TObject);
begin
(Sender as TAction).Checked := ToolBar1.Visible;
end;