Yo lo estoy probando con un memo y si funciona.
Incluso funciona si haces:
Código Delphi
[-]
if length(trim(memo.text))=0 then
showmessage('vacío');
....
if trim(memo.text)='' then
showmessage('vacío');
Revisando la instrucción que tienes, estas comparando el memo con un espacio en blanco. Es decir, tienes:
Código Delphi
[-]
if campotexto.text=' ' then
...
if campotexto.text='b' then
...
if campotexto.text='' then
tienes un espacio en blanco entre los apóstrofes. Cuando debería de ser:
Código Delphi
[-] if campotexto.text='' then