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