[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; 


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

[NumLock]

ну так col1 в бесконечность уходит

[Ildar-tsr]

На момент вызова таймера какие значения принимают row1 и col1?

[Anarsenok]

col1:=0;
row1:=-1;

[Ildar-tsr]

Тебя не смущает что строка имеет отрицательный индекс?