TStringList, загрузка строк в UTF-8

[apromix]

Здраствуйте!
Переделываю программу с дельфи хе5 в Lazarus. При компиляции в меню получаю порезанные строки в конце.

Текст в файле в кодировке UTF8. Загружаю в TStringList так:

var
  S: TStringList;
begin
  S := TStringList.Create;
  try
    S.LoadFromFile(FileName{$IFNDEF FPC}, TEncoding.UTF8{$ENDIF});
    ...
  finally
    S.Free;
  end;

Как исправить ситуацию?

Спасибо.

[avd]

Может
S: TStringListUTF8;

[apromix]

Спасибо, попробую, не знал о таком.

[avd]

Также обратите внимание, что в Lazarus используется формат UTF-8.
Поэтому для работы с кириллицей нужно использовать ф. UTF8Length, UTF8Pos, UTF8Trim, WinCPToUTF8 и т. д. (см. модуль LazUTF8).
Ну и http://intuit.valrkl.ru/course-1265/index.html