Крякозябры вместо русских букв при записи в текствый файл

[alexb_imported]

Проблема решается подменой кодировки в STREAM'e:

тextLoc := 'русский текст';
CREATE(StreamLoc);
StreamLoc.Open;
StreamLoc.Charset('windows-1251');  // русская кодировка
StreamLoc.WriteText('textLoc');