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

[Pirate]

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

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

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

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

[Pirate]

Для заполнения

procedure TForm1.Button1Click(Sender: TObject);
begin

StringGrid1.Cells[0,0]:='600';
StringGrid1.Cells[0,1]:='1500';
stringgrid1.Cells[0,2]:='900';
StringGrid1.Cells[1,0]:='400';
StringGrid1.Cells[1,1]:='800';
stringgrid1.Cells[1,2]:='4800';
StringGrid1.Cells[2,0]:='1400';
StringGrid1.Cells[2,1]:='700';
stringgrid1.Cells[2,2]:='700';
StringGrid1.Cells[3,0]:='600';
StringGrid1.Cells[3,1]:='1000';
stringgrid1.Cells[3,2]:='600';
StringGrid1.Cells[4,0]:='3000';
StringGrid1.Cells[4,1]:='4000';
stringgrid1.Cells[4,2]:='7000';
end;

Вот как я сделал:

procedure TForm1.Button2Click(Sender: TObject);
var A:array [0..3] of real;
    B:array [0..3] of real;
    C:array [0..3] of real;
    i : integer;

begin
try
 for i:=0 to StringGrid1.RowCount-1 do
 begin
  A[i] := strtofloat(StringGrid1.Cells[0,i]) / strtofloat(StringGrid1.Cells[StringGrid1.ColCount-1,i]);
  B[i]:=strtofloat(StringGrid1.Cells[1,i]) / strtofloat(StringGrid1.Cells[StringGrid1.ColCount-1,i]);
  C[i]:=strtofloat(StringGrid1.Cells[2,i]) / strtofloat(StringGrid1.Cells[StringGrid1.ColCount-1,i]);

здесь набросок вычитания единичной матрицы из полученой 
можно как цикл оформить это всё?
 
 A[0]:=1-A[0];
  A[1]:=0-a[1];
  A[2]:=0-a[2];

  B[0]:=0-b[0];
  B[1]:=1-b[1];
  B[2]:=0-b[2];

  C[0]:=0-c[0];
  C[1]:=0-c[1];
  C[2]:=1-c[2];

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

А можно сделать чтбы после запятой было две цифры т.е вместо 0,1333333333333333 было 0,13
и ещё как в мемо сделать вывод построчно чтобы Первая строка была равна a[i] вторая b[i] 3 c[i]