Помогите записать в цикл

[prog1]

procedure TForm1.Button2Click(Sender: TObject);
var obprod,chak,oborakzap,crob,sebpr,srzap,debzad,prodkr,kredzad,zakkr,chp,valpr,densumm,vnakzap,pokkr :integer;
begin
randomize;
trackbar1.position := 1;

 chp := random(50000)+1;
 chak := random(50000)+1;
 crob := random(50000)+1;
 obprod := random(50000)+1;
 vnakzap := random(50000)+1;
 oborakzap := random(50000)+1;
 sebpr := random(50000)+1;
 srzap := random(50000)+1;
 debzad := random(50000)+1;
 kredzad := random(50000)+1;
 prodkr := random(50000)+1;
 zakkr := random(50000)+1;
 valpr := random(50000)+1;
 densumm := random(50000)+1;

 pagecontrol1.ActivePageIndex := 1;

stringgrid1.Cells[trackbar1.Position,1] := ''+floattostr(obprod / chak);
de[trackbar1.Position,1] := obprod div chak;

stringgrid1.Cells[trackbar1.Position,2] := ''+floattostr(oborakzap / crob);
de[trackbar1.Position,2] := oborakzap div crob;

stringgrid1.Cells[trackbar1.Position,3] := ''+floattostr(sebpr / srzap);
de[trackbar1.Position,3] := sebpr div srzap;

stringgrid1.Cells[trackbar1.Position,4] := ''+floattostr(debzad / prodkr * 365);
de[trackbar1.Position,4] := debzad div prodkr * 365;

stringgrid1.Cells[trackbar1.Position,5] := ''+floattostr(kredzad / zakkr);
de[trackbar1.Position,5] := kredzad div zakkr;

stringgrid1.Cells[trackbar1.Position,6] := ''+floattostr(chp / obprod * 100);
de[trackbar1.Position,6] := chp div obprod * 100;

stringgrid1.Cells[trackbar1.Position,7] := ''+floattostr(valpr / obprod * 100);
de[trackbar1.Position,7] := valpr div obprod * 100;

stringgrid1.Cells[trackbar1.Position,8] := ''+floattostr(valpr / sebpr * 100);
de[trackbar1.Position,8] := valpr div sebpr * 100;

stringgrid1.Cells[trackbar1.Position,9] := ''+floattostr(densumm / obprod * 100);
de[trackbar1.Position,9] := densumm div obprod * 100;

stringgrid1.Cells[trackbar1.Position,10] := ''+floattostr((chak / chp) * 100);
de[trackbar1.Position,10] := (chp div chak) * 100;

trackbar1.Position := trackbar1.Position + 1;

вот есть несколько значений, они заполняются рандомом. Затем в стрингрид высчитываются сразу значения. Но как видно, они высчитываются только для первого столбца таблицы. Есть трэкбар, на нем 6 делений, то бишь 6 столбцов в таблице. По нажатию кнопку, столбцы должно разом заполняться, а так получается что заполнять приходится, нажимая 6 раз подряд кнопку.
Как записать это дело в цикл ? Али еще как можно ?

[Iceman]

после randomize; поставь for trackbar1.position:=1 to 6 do begin .. end;
и не присваевай тракбару каждый раз при начяле 1.

другой вариант мог бы придумать но ты както тут странно замутил.

[prog1]

увы, но тогда код не компилиться.

for trackbar1.position := 1 to 6 do

например, на эту строку получаю такое

[Error] Unit1.pas(148): For loop control variable must be simple local variable

чего оно от меня хочет ?

[BOBAH13]

Что пишет того и хочет... вы указыватье trackbar1.position - свойство, а не переменная... он просит переменну т.е. типа var i: Integer; а потом в теле цикла trackbar1.position := i;

[mutabor]

чего оно от меня хочет ?

[Error] Unit1.pas(148): For loop control variable must be simple local variable
[Ошибка] модуль Unit1.pas(строка 148): Счетчик цикла for должен быть простой локальной переменной.

[prog1]

Блин, наверно криворукость сказывается, но код не хочет компилиться. Если ввожу еще одну переменную, все последующие строки вдруг стали ошибочными
и с трэкбаром тоже чушь какая-то.