Как сделать чтоб RichEdit сохранял в DOS формате? Опции

[KasyaAR]

Помогите не выходит сохранить данные написаные в RichEdit в старом добром DOS формате(в Паскале таких проблем не было). Delphi записывает ко всему прочему всякую муть.

[mj]

procedure TForm1.*(Sender: TObject);
var
  s: String;
  l: Integer;
  f: TStream;
begin
  s := RichEdit1.Lines.Text; // Получаем текст
  l := Length(s); // Запоминаем длинну текста
  if l>0 then // Конвертируем в Dos кодировку
    CharToOemBuff(S[1], S[1], l);

  // Создаём файл и объект-поток для записи
  f := TFileStream.Create('lines.txt', fmCreate);
  f.Write(S[1], l); // Записываем данные в поток (файл)
  f.Free; // Закрываем файл и удаляем объект-поток
end;