Создание файла в DOS или в Windows кодровке

[alexb_imported]

Проблема решается без какой-либо конвертации Win2Dos, a имменно строчкой

OuStrim.Charset('windows-1251');  -> русская кодировка

Вот полный пример

FileNameLoc := 'c:\Temp\Kyrill.txt';
textLoc := 'русские буквы'; 
CREATE(StreamLoc);
StreamLoc.Open;
StreamLoc.Charset('windows-1251');  // русская кодировка
StreamLoc.WriteText(textLoc);
StreamLoc.SaveToFile(FileNameLoc,2);
StreamLoc.Close;

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