Не пишет кириллицу в ini-файл. В чем ошибка?

[Widar]

Привожу фрагмент кода, где происходит вывод в файл символов, прочитанных из другого файла.

private
myFile: TFileStream;
myFile1: TFileStream;
letter : char;
konec:integer;
i:integer;
...

konec:=myfile.Seek(0, soFromEnd);
i:=0;
myFile.Seek(1, soFromBeginning);
repeat
myFile.Read(letter,1);
myFile1.Write(letter,1);
i:=i+1;
until i=konec;
myfile.free;
myfile1.free;
...
в myFile содержится русский текст, а в файл myFile1 почему-то вводятся совершенно не те символы. Как вывести в файл нормальные русские символы?

[Stilet]

А что вообще должно писаться? Строка или содержимое целого файла?

[Widar]

Символ из файла myFile. Русский символ, а пишется иероглиф.

[Stilet]

Проверил твой код - Русский текст пишется нормально.
И от себя предлагаю попроще:

  myFile:=TFileStream.Create('c:\temp\q.txt',fmOpenRead);
  myFile1:=TFileStream.Create('c:\temp\w.txt',fmCreate);
   myFile1.CopyFrom(myFile,myFile.Size);
  myfile.free;
  myfile1.free;

[Widar]

Stilet, спасибо за помощь. Предложенный тобой код запомню, но у меня в проге над символом, после его чтения, много чего выполняется. А с ошибкой сам разобрался, дело во встроенной в Тоталкомандер ***** прогой, которая не отображала что надо!!! Че я сразу не догадался эту гадость проверить!
Пардон за беспокойство.