Hice la siguiente prueba, espero te sirva para lo que necesitas:
Código Delphi
[-]
if Trim(Edit1.Text) = '' then
begin
ShowMessage('En blanco')
else
ShowMessage('Lleno');
El trim limpiaria los espacios en blanco y si el resultado es vacio, es porque definitivamente no hay nada
.