Hola...
En lugar de usar el evento
OnKeyPress, es mejor que redefinas el método
KeyPress:
Código Delphi
[-]
TIpEdit = class(TEdit)
protected
procedure KeyPress(var Key: Char); override;
end;
implementation
procedure TIpEdit.KeyPress(var Key: Char);
begin
inherited
end;
Saludos...