Компонент Stringgrid

[kotopezzz]

Всем доброго времени суток!

Ребят с программированием сталкиваюсь впервые..и для работы нужно написать небольшую програмку которая перемножает параллельные ячейки сиз строк двух столбцов а затем складывает их значения. В паскале это примерно выглядит так:

var
Husumm,Husum:real
Hu :arr16
r :arr16
i: integer

begin
for i=1 to 16 do
Hu(i):=Hu1(i)*r(i)
Husum = Husumm+Hu(i);

Помогите прописать тоже самое в DELPHI, используя компонент Stringgrid..а данные описать двухмерным массивом..пробую, пытаюсь, но не выходит..посоветоваться даж не скем(

[Noor]

procedure TForm1.BitBtn1Click(Sender: TObject);
 var
    a,b:array [0..2] of integer;
    j,summ: integer;
begin

for j:=0 to 2 do
begin
a[j]:=StrToint(StringGrid1.Cells [0,j]);
b[j]:=StrToint(StringGrid1.Cells [1,j]);
summ:=a[j]* b[j];
StringGrid1.Cells[2, j]:=intToStr(summ);
end;
 end;
procedure TForm1.FormActivate(Sender: TObject);
begin
StringGrid1.Cells [0,0]:='1';
StringGrid1.Cells [1,0]:='5';
StringGrid1.Cells [0,1]:='3';
StringGrid1.Cells [1,1]:='8';
StringGrid1.Cells [0,2]:='9';
StringGrid1.Cells [1,2]:='4';
end;

[kotopezzz]

Noor спасибо большое дружище!!Как тя отблагодарить...я тут первый раз на сайте..голосование или что нить вроде того есть?