[Azlk90]

Доброго времени суток. Возникла проблема - пишет "is not integer value"
Не могу понять почему StrigGrid не видит значение.

procedure TForm1.Button1Click(Sender: TObject);
var
i,j,n,det,e:integer; // значение размерности , детерминант
a:string[255]; // переменная для сообщения
begin
det:=0; // начальное значение матрицы
n:=StrToInt(Form1.Edit1.Text); // получение порядка матрицы
for i:=0 to n do
for j:=0 to n do
begin
if StringGrid1.Cells[i,j]<>'' then // если что-то есть то меняет
begin
if n=1 then // порядок матрицы 1 то
begin
det:=StrToInt(StringGrid1.Cells[i,j]);;
end;
end
else // в противном случае заменяем пробел на ноль
begin
StringGrid1.Cells[i,j]:='0';
if n=1 then // порядок матрицы 1 то
begin
det:=StrToInt(StringGrid1.Cells[i,j]);
end;
end;
end;
a:='порядок матрицы: ';
label1.Caption:=a + IntToStr(n) + #13 +'значение детерменанта: ' + IntToStr(det); // вывести значение

Заранее благодарен.