[Belanserg]

Может это подойдет:

Код:

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

for j:=1 to 2 do
begin
a[j]:=StrToint(StringGrid1.Cells [1,j]);
b[j]:=StrToint(StringGrid1.Cells [1,j]);
summ:=a[j]* b[j];
StringGrid1.Cells[2, j]:=intToStr(summ);
end;