StringGrid to TXT Опции

[Desktop_4]

Как сохранить даные со StringGrid в текстовый файл. Если в него введена матрица
Например
1 2 3
4 5 6
7 8 9
В таком же виде надо что бы эти даные сохранились в текстовый файл
1 2 3
4 5 6
7 8 9


нашел процедуру сохранение, но она сохраняет одно число на строку, а это не подходит

Код

procedure SaveStringGrid(StringGrid: TStringGrid; const FileName: TFileName);
var
f: TextFile;
i, k: Integer;
begin
AssignFile(f, FileName);
Rewrite(f);
with StringGrid do
begin
// Write number of Columns/Rows  
  Writeln(f, ColCount);
Writeln(f, RowCount);
// loop through cells  
  for i := 0 to ColCount - 1 do
  for k := 0 to RowCount - 1 do
  Writeln(F, Cells[i, k]);
end;
CloseFile(F);
end;

Тоесть примерно так
1
2
3
4
5
6
7
8
9

И как сделать что бы не сохранялись даные которые внесеные в ячейки позначеные серым цветом ?