Heredar eventos de un Edit.

[rauros]

Tengo esto y me da el siguiente error en la línea de OnKeyPress:

Código Delphi [-]
Procedure TipEdit.ApretarUnBoton(Sender: TObject);
Begin
End;

Constructor TIpEdit.Crear(Padre: TWinControl;
X: Integer; Y: Integer;
TX: Integer; TY: Integer);
Begin
  With TIpEdit.Create(Padre) do Begin
    Self.OnKeyPress:=ApretarUnBoton;
  End;
End;

[Error] EditSoloIp.pas(30): Incompatible types: 'Parameter lists differ'