Help

[fuck my swag]

здравствуйте, уважаемые умы:D прошу вашей помощи из армии вернулся в башке завал суть такая у меня есть таблица в стринггриде там есть поля оклад и премия(% от оклада) мне надо найти сумму премий которую надо выплатить тобеж перемножить между собой оклад на премию и сложить эти произведения вот код подскажите что не так ибо выдает ошибку:
var
Form1: TForm1;
a,b,i,j:integer;
c,d:real;


implementation

{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);
begin

a:=0;
b:=0;
c:=0;
a:=strtoint(StringGrid1.Cells[2,j]);
b:=strtoint(StringGrid1.Cells[3,j]);
for j:=1 to StringGrid1.ColCount-1 do
c:=a*(b/100);
d:=d+c;
edit1.text:=floattostr(d);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
stringGrid1.Cells[0,0]:='№';
stringGrid1.Cells[1,0]:='ФИО';
stringGrid1.Cells[2,0]:='Оклад(руб.)';
stringGrid1.Cells[3,0]:='Премия(%)';
stringGrid1.Cells[4,0]:='Детское пособие';
stringGrid1.Cells[5,0]:='Стажевые выплаты';
stringGrid1.Cells[6,0]:='Налог(%)';
stringGrid1.Cells[7,0]:='Страховой взнос(руб.)';
stringGrid1.Cells[8,0]:='Штраф(руб.)';
stringGrid1.Cells[9,0]:='Пенсионный фонд(руб.)';
stringGrid1.Cells[10,0]:='Зарплата';
stringGrid1.Cells[0,1]:='1';
stringGrid1.Cells[0,2]:='2';
stringGrid1.Cells[0,3]:='3';
stringGrid1.Cells[0,4]:='4';
stringGrid1.Cells[0,5]:='5';
stringGrid1.Cells[0,6]:='6';
stringGrid1.Cells[0,7]:='7';
stringGrid1.Cells[0,8]:='8';
stringGrid1.Cells[0,9]:='9';

stringGrid1.Cells[1,1]:='Иванов И.И.';
stringGrid1.Cells[1,2]:='Петров П.К.';
stringGrid1.Cells[1,3]:='Сычева В.Д.';
stringGrid1.Cells[1,4]:='Ветров М.Л.';
stringGrid1.Cells[1,5]:='Бобков И.Н.';
stringGrid1.Cells[1,6]:='Руцкой А.А.';
stringGrid1.Cells[1,7]:='Лаптин В.Г.';
stringGrid1.Cells[1,8]:='Галкин Л.А.';
stringGrid1.Cells[1,9]:='Витина П.И.';

stringGrid1.Cells[2,1]:='1200';
stringGrid1.Cells[2,2]:='750';
stringGrid1.Cells[2,3]:='2130';
stringGrid1.Cells[2,4]:='980';
stringGrid1.Cells[2,5]:='1635';
stringGrid1.Cells[2,6]:='2560';
stringGrid1.Cells[2,7]:='2165';
stringGrid1.Cells[2,8]:='2340';
stringGrid1.Cells[2,9]:='1690';

stringGrid1.Cells[3,1]:='85';
stringGrid1.Cells[3,2]:='90';
stringGrid1.Cells[3,3]:='55';
stringGrid1.Cells[3,4]:='85';
stringGrid1.Cells[3,5]:='100';
stringGrid1.Cells[3,6]:='70';
stringGrid1.Cells[3,7]:='40';
stringGrid1.Cells[3,8]:='55';
stringGrid1.Cells[3,9]:='60';


end;

[DpolenST]

for j:=1 to StringGrid1.RowCount-1 do
begin
a:=strtoint(StringGrid1.Cells[2,j]);
b:=strtoint(StringGrid1.Cells[3,j]);
c:=a*(b/100);
d:=d+c;
end

вроде так, хотя в делфи я не очень

[fuck my swag]

DpolenST,благодарю помогло