eigener klasse

[LoL]

hi

ich hab folgenden code:

Delphi-Quellcode:

unit u_prog
...
type Work_Panel = Class ( TPanel )
  procedure button_creation;
end;
...

var mybutton : TButton;

procedure Work_Panel.button_creation;
begin
  mybutton := TButton.create(self);
  mybutton.parent := self;
end;

procedure CreateComponents;
begin
  Work_Panel.button_creation;
end;

CreateComponents wir von der haupt unit aus in form.oncreate aufgerufen.
ich bekomme folgende fehler meldung:
'[Error] u_prog.pas(283): This form of method call only allowed for class methods'

ich kann damit aber nicht wirklich was anfangen. wer kann mir helfen?

gruß christoph