<schimpf>
Schon mal Haltepunkte beim Debuggen gesetzt?
Schon mal auf die Compiler-Warnungen geachtet?
</schimpf>
Dann wäre die aufgefallen, dass ohne
override nichts läuft - deine Routinen werden überhaupt nicht aufgerufen.
Delphi-Quellcode:
procedure CreateParams(var Params: TCreateParams); override;
procedure CreateWindowHandle(const Params: TCreateParams); override;