[[maeyanes]]

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
  // Tu código
  inherited
end;

Saludos...