Сохранение файла

[KREGI]

программа создана для открытия файла , изначально он в 16 СЧ (перевод его из 16 в 10 СЧ) , редактирования его, и сохранения в 16 СЧ
вот код:

procedure TForm1.Button1Click(Sender: TObject);  //открытие файла
var
c : char;
f : file of char;
begin
OpenDialog1.Filter:='Файлы ресурсов (*.r*)|*.r*|';
 if OpenDialog1.Execute and fileExists(OpenDialog1.FileName)
 then
 begin
 AssignFile(f,OpenDialog1.FileName);
 Reset(f);
 while not eof(f) do
  begin
  read(f,c);
  RichEdit1.Text:= RichEdit1.Text + c;
  end;
 closeFile(f);
 end;

end;


procedure TForm1.Button2Click(Sender: TObject); // сохранение файла
var f : file of char;
i : longint;
begin
SaveDialog1.Filter:='Русский файл ресурса (R16)|*.r16|';
if SaveDialog1.Execute  and fileExists(SaveDialog1.FileName)
  then
 begin
 AssignFile(f,SaveDialog1.FileName);
 rewrite(f);
 for i:=1 to length(RichEdit1.Lines.Text) do
  begin
  write(f,RichEdit1.Lines.Text[i]);
  end;
 closeFile(f);
 end;
end;

не работает сохранение. помогите плз.
Неужели ни кто не знает??

[Ntlegend]

хорошая штука есть.. поиск по форуму называется.. от натолкнулся на хорошую тему
http://www.programmersforum.ru/showthread.php?t=10512

а еще попробуй сначала копировать символ с RichEdit1.Lines.Text[i] в какуюто переменную.. и с нее писать в файл.. и писать желательно не заменяя текущее содержимое, а дописывая в конец..

[KREGI]

а что именно можно изменить в моем коде, что бы сохранялись фалы в 16 СЧ? скажите пожалуйста =), ни кто не поможет или все не знают?

[kuzmich]

попробый так

if SaveDialog1.Execute then
RichEdit1.Lines.SaveToFile(SaveDial og1.FileName);

[KREGI]

Как преобразовать сохраняющийся файл в 16 СЧ?