ActionKomponenten: Code nur 1mal ausführen

[SleepyMaster]

Delphi-Quellcode:

var 
  Klick: boolean;

procedure TForm1.ActionmainmenubarButtonClick(Sender: TObject);
begin
Klick:=not Klick;
if Klick then
  begin
  end;
end;

Vielleicht so???