Si aún no es suficiente el codigo que te plantea egostar, haz lo siguiente en la validación que haces en el OnExit del Edit:
Código Delphi
[-]procedure TForm1.Edit1Exit(Sender: TObject);
begin
if not Button2.Focused then if Edit1.Text = '' then
raise Exception.Create('Error: Digite un dato');
end;