como detectar edit vacio y no hacer nada?

[[Caral]]

Hola

Código Delphi [-]
uses MMSystem;

procedure TForm1.Button1Click(Sender: TObject);
begin
 if edit1.text ='' then
 begin
   sndPlaySound('C:\Windows\Media\windaVinciClose.wav',
  SND_NODEFAULT Or SND_ASYNC Or SND_LOOP);
   statictext1.Caption :=#0;
   showmessage ('ingrese un valor valido');
 end else
 if edit2.text ='' then
 begin
   sndPlaySound('C:\Windows\Media\windaVinciClose.wav',
  SND_NODEFAULT Or SND_ASYNC Or SND_LOOP);
   statictext1.Caption :=#0;
   showmessage ('ingrese un valor valido');
 end else

 statictext1.Caption :=floattostr ( strtofloat (edit1.text)+ strtofloat (edit2.text));

end;
end.

Saludos

[Jac fcc]

yo agregaría al codigo de Caral el trim usado por mcs.

Código Delphi [-]
if Trim(edit1.text)='' then
...
 if Trim(edit2.text)='' then
...

pues si el usuario se le ocurre oprimir la barra espaciadora,
no se cumple la igualdad.
Incluso el usar GetTextLen no se cumpliría,
pues se tendría longitud uno, dos, ...(por cada espacio)
aunque sean espacios blancos.