[ecfisa]

Hola, mi problema es el siguiente:
Tengo en una unidad (xxx) una función que verifica nros. enteros:
unit xxx;
uses...
interface
procedure NumEntExit(Sender: TObject);
implementation
procedure NumEntExit(Sender: TObject);
begin
with Sender as TCustomEdit do
try
StrToInt(Text);
except
ShowMessage('Error');
SetFocus;
end;
end;

Ahora en la otra (yyy) creo el evento OnExit del TEdit...

procedure TForm1.EditExit(Sender: TObject);
begin
NumEntExit(Sender);
end;

y me da el error desbordamiento de pila. Trate de asignar al evento EditExit la función NumEdit (perteneciente a la otra unidad), pero no he podido.

Agradecería infinitamente cualquier sugerencia.