[mcs]

Es muy simple, hazlo al revés.

En vez de

procedure TForm1.CalcularClick(Sender: TObject);
begin
  if Edit1.text='' then
  // no hacer nada
end;

lo que puedes hacer es:

procedure TForm1.CalcularClick(Sender: TObject);
begin
  if not Edit1.text='' then
  // hacer lo que quieras
end;

Ah, yo añadiría un trim al Edit1, para que quitase los espacios en blanco de delante y detrás:

 procedure TForm1.CalcularClick(Sender: TObject);
 begin
   if not Trim(Edit1.text)='' then
   // hacer lo que quieras
 end;

Así, si lo único que hay en Edit1 es una cadena de espacios en blanco, tampoco hará nada.

Saludos,

Marc