[ecfisa]

Hola.

Hola probá con esta línea al inicio del evento OnExit del Edit.

procedure TForm1.Edit1Exit(Sender: TObject);
begin
  if ActiveControl.Name = 'Button1' then Exit; 
  ...
  ...
  ...
end;

Saludos.