[dec]

Hola,

Puedes valerte de una variable global, o de una propiedad del formulario que alberga botón y casilla de edición:

Código Delphi [-]
unit Form1;

interface

type
  TForm1 = class(TForm)
    {...}
    procedure Edit1Exit(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    FBotonPulsado: boolean;
  end;

implementation

procedure TForm1.Edit1Exit(Sender: TObject);
begin
  if not FBotonPulsado then
  begin
    {...}
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  FBotonPulsado := true;
  {...}
end;

{...}

end.