[Mp3]

никак не пойму в чем ошибка, если не сложно подскажите где ошибка

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

procedure A1; Var  n,tau, x, y, v_x, v_y,w_x,W_y,v,w,w_tau,w_n,ro:integer;  Begin  n:=10;  t:=StringGrid1.RowCount:=n+1  for tau:=1  to n do //ошибка в этой строке  x:= 1;  y:= 1;  v_x:= 1;  v_y:= 1;  w_x:= 1;  W_y:= 1;  v:= 1;  w:= 1;  w_tau:= 1;  w_n:= 5;  ro:= 3;  with Form1.stringgrid1 do  Begin   cells [0,tau]:=Floattostr (tau);   cells [1,tau]:=Floattostr (x,ffFixed,0,2);   cells [2,tau]:=Floattostr (x,ffFixed,0,2);   cells [3,tau]:=Floattostr (v_x,ffFixed,0,2);   cells [4,tau]:=Floattostr (v_y,ffFixed,0,2);   cells [5,tau]:=Floattostr (w_x,ffFixed,0,2);   cells [6,tau]:=Floattostr (w_y,ffFixed,0,2);   cells [7,tau]:=Floattostr (v,ffFixed,0,2);   cells [8,tau]:=Floattostr (w,ffFixed,0,2);   cells [9,tau]:=Floattostr (w_tau,ffFixed,0,2);   cells [10,tau]:=Floattostr (w_n,ffFixed,0,2);   cells [11,tau]:=Floattostr (ro,ffFixed,0,2);  end;

p.s. заранее спасибо