Heredar eventos de un Edit.

[rauros]

Saludos a todos. Estoy creando un TIpEdit, para hacer más fácil escribir ip, y me encuentro con el problema de que no sé heredar el evento OnChange para usarlo. Me gustaría usar ese evento para evitar escribir letras, y otras cosas.

Hasta ahora tengo hecho esto, pero me da un error que más abajo voy a poner:

Código Delphi [-]
Constructor TIpEdit.Crear(Padre: TWinControl;
X: Integer; Y: Integer;
TX: Integer; TY: Integer);
Begin
  inherited;
  With TIpEdit.Create(Padre) do Begin
    Self.OnChange:=Cambiar(Padre); <---- Línea 26
  End;
End;

[Error] EditSoloIp.pas(26): Incompatible types: 'TNotifyEvent' and 'procedure, untyped pointer or untyped parameter'

No he continuado el constructor porque me falta esa ayuda. Gracias.