Na dann schreib dir doch eins. Einfach eine TObject-Ableitung mit der Methode.
Du kannst ja auch mal probieren ob nicht eine class procedure funktioniert, dann brauchst du nicht mal eine Objektinstanz.
Delphi-Quellcode:
type
TWndObject = class(TObject)
public
class procedure WndProc(var Msg: TMessage);
end;
procedure TWndObject.WndProc(var Msg: TMessage);
begin
end;