[Кирилл9609]

Подскажите пожалуйста,имеется StringGrid состоящий из двух строк и 22 столбиков, как сделать так,чтобы данные из StringGrid выводились в текстовый файл в корректной форме,то есть значение x сверху,а под ним значение y.
P.S.все найденные в интернете варианты решения данной проблемы выводят все значения в один столбик,либо с использованием Мемо,но там все сбивается и значения выводятся не друг под другом

[@Rafa3L]

Код:

procedure TForm1.Button1Click(Sender: TObject);
 function st(ds: string): string;
  begin
   Result:= ds;
   while Length(Result) < 4 {exp. '123 '} do 
    Result:= Result + ' ';
  end;
var
 i: integer;
 sx, sy: string;
begin
 for i := 0 to 21 do
  begin
   sx:= sx + st(StringGrid1.Cells[i,0]);
   sy:= sy + st(StringGrid1.Cells[i,1]);
  end;

 with TStringList.Create do
  try
   Add(sx); 
   Add(sy);
   SaveToFile('tmp.txt');
  finally
   Free;
  end;
end;