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.