Попробуй так:
Код:
Var
F : File Of Byte;
L : Integer;
begin
AssignFile(F,'d:\text.txt');
Reset(F);
L:=SizeOf(F);
CloseFile(F);
end;
В итоге в переменной L у тебя будет размер файла в байтах. Если помним, то один символ занимает один байт. Следовательно, получаешь количество символов.