OnClick auf globale Funktion setzen ...

[maximov]

Aha...

Das liegt wohl daran, dass alle gängigen events methoden erwarten und keine normalen prozeduren. Also procedure (sender:TObject) of object;. Du kannst das mit class methoden umgehen:

Delphi-Quellcode:

...
  TWrapper = class
    class procedure TuWas(sender:TObject);
  end;  
...
procedure TWrapper.TuWas(Sender: TObject); 
begin 
  ShowMessage('Ich tu was'); 
end; 

var SubMenu: TMenuItem; 

procedure InstalliereWas(MainMenu: TMainMenu); 
begin 
...
SubMenu.OnClick:=TWrapper.TuWas;

mfg maximom