DoKeyPress überschreiben...

[Teekeks]

Hallo!
Ich Leite momentan eine Klasse von TCustomEdit ab und hab volgendes problem:
Ich würde gerne die function DoKeyPress überschreiben, das geht aber leider wie ich festgestellthabe nicht.
Das hier hab ich:

Delphi-Quellcode:

    function DoKeyPress(Var Message : TLMKey): Boolean; override;
{...}
function TMyDatumEdit.DoKeyPress(var Message: TLMKey): Boolean;
begin
  if not IsAlowed(char(Message.CharCode)) then exit;
  inherited;
end;

Was muss ich ändern?

gruß Teekeks

ps: es tut mir leid das ich euch so oft nerve, soll aber was für meinen Vater proggen und hab gerade Zeit...