Модуль: SysUtils

Описание
Функция возвращает количество символов длинной строки без учета символа конца строки.

Пример
const
   S: PChar = 'Земля имеет форму чемодана!';
begin
   MessageDlg( S+ #13#10 + 'Количество символов = ' + IntToStr( StrLen( S)), mtInformation, [mbOk], 0);
end;