Pascal/Turbo Pascal - fución cadena vacía

hola, necesitaba una función (de tipo boolean) para que me diga si la cadena está vacía o no...vacía si todos sus caracteres son espacios o si se ha pulsado enter ¡¡¡ gracias x anticipado y un saludo

yo la hice así pero no sé si funciona bien......

FUNCTION novacio (cadena:string):boolean;
CONST enter=chr(13);
VAR i:integer;
BEGIN
for i:=1 to length(cadena) do BEGIN
if cadena[i]=' ' then novacio:=FALSE
else if cadena[i]<>(enter)then novacio:=TRUE
else novacio:=FALSE;
END;
END;