[Igor]

Как вариант:
f:string; ....
if f<>'' then
x:=length(f);
приём из обычного паскаля