[Anarsenok]

PHP код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
case radiogroup1.ItemIndex of
0..1:begin
row1:=row1+1;
[b]label8.Caption:=floattostr(a[col1,row1]);[/b]
label9.Caption:=floattostr(b[col1,row1]);
label11.Caption:=floattostr(c[col1,row1]);
stringgrid3.Cells[col1,row1]:=floattostr(c[col1,row1]);
if row1=m-1 then begin
col1:=col1+1;
row1:=-1;
end; 


на выделенной строке показывается ошбка