[ecfisa]

Hola Lutmak.

Si no te entiendo mal, lo que queres es que, si el Edit1 está vació no se complete la operación de asignar la concatenación a Label1, no ?

Si es así, sería:

procedure TForm1.Calcular1Click(Sender: TObject);
begin
   if Edit1.Text > '' then 
     Label1.Caption := Edit1.Text + Edit2.Text;
end;

Si deseas que no se realize la asignación si cualquiera de los Edit's está vacío, sería:

procedure TForm1.Calcular1Click(Sender: TObject);
begin
   if (Edit1.Text > '') and (Edit2.Text > '') then 
     Label1.Caption := Edit1.Text + Edit2.Text;
end;

Espero haberte entendido.

Saludos.