Управление матрицей, сохраненной из Memo

[sergobrit]

Вот здесь я попробовал поместить данные в Stringgrid, но в самом цикле (как в коде ниже) глючит, а вне его -- странно записывает. Разъясните, пжлста, как записать данные нормально, чтобы каждое значение находилось в своей ячейке и можно ли это сохранить в файл в формате, как во вложении?

   FastFourierTransform(Ss,n,False);
     for i := 0 to 2*n - 1 do
     begin
     Form1.fstlnsrsSeries4.AddY(20*Log10(Abs(Ss[i]/N0)));

     K:=512;
     N1:=Round(r.Data.Size/K);
     Form1.strngrd1.ColCount:=N1;
     Form1.strngrd1.RowCount:=K;
     s:=s+' '+ FloatToStr(round(Ss[i]/32768));
     for col1:=0 to N1-1 do
     for row1:=0 to K-1  do
     begin
       strngrd1.Cells[col1,row1]:=FloatToStr(Ss[i]);
     end;
     end;