Hola.
Dije fué una respuesta rápida (al vuelo) por lo que no incluí comprobaciones
Pero se puede verificar que la cadena a enviar esté vacía externamente como bién lo ha expuesto Agustín, o también dentro de las mismas funciones.
Ejemplo:
Código Delphi
[-]
function foo(const s: string): string;
const
MSG: array [Boolean] of string = ('Adios', 'Hola');
begin
if s = '' then raise Exception.Create('cadena vacía');
Result := MSG[(s[1] = '/') and (s[2] = '/')];
end;
Saludos
