StringGrid опять же

[MaryJaneAlise]

Доброго времени суток, ребзя!
Тут встал вопрос. У меня есть код который данные из StringGrid сохраняет во внешний файл вот так:
1 абра кодабра сим сала бим
А мне нужно вот так:
2
абра
кодабра
сим
сала
бим

код который сохраняет 1 :

procedure TForm1.Button1Click(Sender: TObject);
  Var f: TextFile;
i, k: Integer;
s,s1:string;
begin
if SaveDialog1.Execute //выполняется диалог 'Сохранить как'
then begin //введено имя файла
AssignFile(f,SaveDialog1.FileName);
Rewrite(f); // создаем файл
Append(f); // открываем файл
for i:=1 to StringGrid1.RowCount-1 do
begin
for k:=0 to StringGrid1.ColCount-0 do
begin
s1:= s1 + '  '+ StringGrid1.Cells[k,i];
end;
Writeln(f,s1); // пишем значения ячеек
s1:='';
end;
CloseFile(f);
end;
end;

[Mad_Cat]

s1:= s1 + #13#10+ StringGrid1.Cells[k,i];

[ReportCube]

s1:= s1 + ' '+ StringGrid1.Cells[k,i] + #$D#$A

[Stilet]

procedure TForm1.Button1Click(Sender: TObject);
i, k: Integer;
s,s1:string;
begin
if SaveDialog1.Execute //выполняется диалог 'Сохранить как'
then begin //введено имя файла
with TStringList.Create do begin
 for i:=1 to StringGrid1.RowCount-1 do begin
  Append(StringGrid1.Rows[i].CommaText);
 end;
 SaveToFile(SaveDialog1.FileName);
 Free;
end;
end;

Подходит?
Или так:
Append(StringReplace(StringGrid1.Ro ws[i].Text,#13#10,#9,[rfreplaceall]));
Чтоб а-ля табуляцию сделать

[MaryJaneAlise]

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

procedure TForm1.Button1Click(Sender: TObject);
i, k: Integer;
s,s1:string;
begin
if SaveDialog1.Execute //выполняется диалог 'Сохранить как'
then begin //введено имя файла
with TStringList.Create do begin
 for i:=1 to StringGrid1.RowCount-1 do begin
  Append(StringGrid1.Rows[i].CommaText);
 end;
 SaveToFile(SaveDialog1.FileName);
 Free;
end;
end;

Подходит?
Или так:
Append(StringReplace(StringGrid1.Ro ws[i].Text,#13#10,#9,[rfreplaceall]));
Чтоб а-ля табуляцию сделать

неа не получается(