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.
