Массив и таблица

[Nightway]

Как перенести вот эти вот значения из таблицы в первый столбик таблицы,но так чтобы значения были по пять штук?ss (2014-04-21 at 01.40.02).jpg
вот код заполнения таблицы

begin
  with strngrd1 do
begin
   rowcount:=101;
  colcount:=6;
  for i:=1 to 100 do
  for j:=1 to 100 do
  cells [i,j]:=floattostrf(ss[i,j],fffixed,5,4);
  strngrd1.rowcount := strngrd1.rowcount + 1;
  for i := 1 to strngrd1.colcount - 1 Do
    strngrd1.cells[i, strngrd1.rowcount - 1] := floatToStr(0);
  strngrd1.MoveRow(strngrd1.rowcount - 1, 1);
  for i := 1 to strngrd1.rowcount - 1 Do
    strngrd1.cells[0, i] := IntToStr(i);
  end;
end;

[XE5]

Nightway Дай исходный вид таблицы, и результат, который нужно получить (две картинки), а то не понятна задача.

[Nightway]

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

Nightway Дай исходный вид таблицы, и результат, который нужно получить (две картинки), а то не понятна задача.

вот вид исходной таблицыss (2014-04-21 at 08.18.17).jpgа надо вот так123123.jpg,в общем числа из левой таблицы перенести в первый столбик,(в место 1,2,3 и тд) но по 5 раз

[XE5]

procedure TForm1.Button1Click(Sender: TObject);
var
 i, n: integer;
begin
StringGrid1.Cols[0][0] := '0,00';
for I := 0 to 5 do
  for n := 0 to 5 do
   StringGrid1.Cols[0][i * 5 + n + 1] :=  StringGrid2.Cols[0][i];
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  i: integer;
begin
for I := 1 to 5 do
 StringGrid2.Cols[0].Add(FormatFloat('0.00', (i * 5) / 100));
end;

[Nightway]

первые нули тоже 5 раз,а нужен 1. и почему то только до 0,25 идёт

[Nightway]

плюс ещё почему при построении графика выдает ошибку

pntsrsSeries1.Clear;
for i:=1 to Strngrd1.RowCount-1 do
pntsrsSeries1.AddXY(StrToFloat(Strngrd1.Cells[0,i]),
StrToFloat(Strngrd1.Cells[1,i]),
'',clRed);
Chart1.Title.Text.Clear;
end;

[XE5]

Nightway мой код нужно не копировать, а изучать. Я показал принцип пятикратного копирования значений. Дальше сами

и почему то только до 0,25 идёт

Цифра 5 в циклах ни на какие мысли не наводит?