Проблема StringGrid Опции

[Pirate]

Помогите пожалуйста

Есть стринг грид с такими значениями:

- 600 600 1400 600 3000
- 1500 800 700 1000 4000
- 900 4800 700 600 7000

Вопрос: как поделить первые три столбца на последний т.е 600 на 3000 1500 на 4000 900 на 7000 также нужно поделить и остальные два,и как потом работать с полученными числами

[Pirate]

var A:array [0..3,0..3] of real;
    i : integer;

begin
try
 for i:=0 to StringGrid1.RowCount-1 do
 begin
Вот сделал двумерный массив помогите транспанировать или сделать вывод в Мемо построчно
  A[i,0] := strtofloat(StringGrid1.Cells[0,i]) / strtofloat(StringGrid1.Cells[StringGrid1.ColCount-1,i]);
  A[i,1]:=strtofloat(StringGrid1.Cells[1,i]) / strtofloat(StringGrid1.Cells[StringGrid1.ColCount-1,i]);
  A[i,2]:=strtofloat(StringGrid1.Cells[2,i]) / strtofloat(StringGrid1.Cells[StringGrid1.ColCount-1,i]);

  

  Memo1.Lines[i]:=FloatTostr(A[i,0]);
    end;
    except
    on EConvertError do MessageBox(Form1.Handle,'Неправильный ввод данных!',nil,0);
    on EZeroDivide   do MessageBox(Form1.Handle,'Деление на ноль нах!',nil,0);
    end;
    
  end;