Pascal/Turbo Pascal - Constante String Vacía

Quería saber si se puede asignar una constante el valor equivalente a un string vacío, para luego hacer una comparacíon del tipo: If string <> string_vacía. Eso, y como hacerlo. Gracias anticipadas.

Una forma sería:

Program STR_VACIA;

Const
NULL='';

Var
S :String;

Begin
Write('Ingrese una cadena: ');
ReadLn(S);
If (S=NULL) then
WriteLn('Ha ingresado un Srring vacío')
Else
WriteLn('Ud. ha ingresado: "', S, '".');
End. {STR_VACIA}

Espero te sirva. Saludos ;-)