Перенос строки в TStringStream

[Kolay]

Здравствуйте, товарищи программисты.
При написании класса возникла проблема - для записи в файл использую TStringStream. Каким образом можно записать в файл перевод строки.

код

...

procedure TmyClass.WriteLine(const APrompt: string; ARewrite: BOOL);
const
  CLineBreak = #10+#13;
var
  myFile: TStringStream;
  newPrompt: string;
begin
  myFile := TStringStream.Create;
  try
    try
      if FileExists(FFileName) then
        if not ARewrite then
        begin
          myFile.LoadFromFile(FFileName);
          myFile.Seek(0, soFromEnd);
        end;
      newPrompt := APrompt + CLineBreak;
      myFile.WriteString(newPrompt);
      myFile.SaveToFile(FFileName);
    except
      on EFOpenError do ShowMessage('file not open');
      on EReadError  do ShowMessage('file not read');
      on EWriteError do ShowMessage('file not write');
    end;
  finally
    myFile.Free;
  end;
end;

...

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  for i := 0 to 9 do
    myClass.WriteLine(IntToStr(i) + ' ', false);
end;

...

Результат: 0 1 2 3 4 5 6 7 8 9.

Заранее спасибо.

[Stilet]

myFile.WriteString(newPrompt+#13#10);

для записи в файл использую TStringStream.

А почему не TStringList? Ты же все равно перенос строки делаешь.

[Kolay]

Сообщение от Stilet

myFile.WriteString(newPrompt+#13#10);

Да, действительно. Туплю...

Сообщение от Stilet

А почему не TStringList? Ты же все равно перенос строки делаешь.

Делал два метода, Write и WriteLine.
Write удобно использовать для записи строки без её предварительного формирования.

Большое спасибо!