prozedur aufruf

[LoL]

Delphi-Quellcode:

unit 2
...
procedure irgendwas;
...
type TMainPanel = class(TPanel)
  procedure Createwas(Sender : TObject);
end;
...
procedure TMainPanel.Createwas(Sender : TObject);
begin
  machwas
end;

procedure irgendwas;
var meinbutton : TButton;
begin
  meinbutton := TButton.create(form1);
  meinbutton.parent := form1;
  meinbutton.onclick := Createwas;
end;

geht aber nicht