В чем ошибка ?

[alexBlack]

Сообщение от Droid

как ее исправить можно ?

Вы так и не ответили.
Компилируется нормально, а после нажатия Button1 возникает ошибка.
ДА ?

Вижу Ваш код, в котором используется массив A
А где он заполняется ?
Так как заполнения нет, элементам массива присваиваются случайные значения. Поэтому возникает ошибка переполнения.

До вызова функции lamb или в фамой функции нужно как-то заполнить массив A:
A[1,1] := 1;
A[1,2] := 2;
...

[Droid]

да после нажатия кнопки ошибка выскакивает
for i:=1 to 3 do
for j:=1 to 3 do
for h:=1 to 3 do
begin
stringgrid1.Cells[i,i]:=inttostr(g);
stringgrid1.Cells[2,1]:=inttostr(a12);
stringgrid1.Cells[3,2]:=inttostr(a23);
stringgrid1.Cells[3,1]:=inttostr(a13);
stringgrid1.Cells[1,2]:=floattostr(1/a12);
stringgrid1.Cells[2,3]:=floattostr(1/a23);
stringgrid1.Cells[1,3]:=floattostr(1/a13);
end;
Заполнение вот от туда он должен брать значения....

[alexBlack]

Сообщение от Droid

да после нажатия кнопки ошибка выскакивает
for i:=1 to 3 do
for j:=1 to 3 do
for h:=1 to 3 do
begin
stringgrid1.Cells[i,i]:=inttostr(g);
stringgrid1.Cells[2,1]:=inttostr(a12);
stringgrid1.Cells[3,2]:=inttostr(a23);
stringgrid1.Cells[3,1]:=inttostr(a13);
stringgrid1.Cells[1,2]:=floattostr(1/a12);
stringgrid1.Cells[2,3]:=floattostr(1/a23);
stringgrid1.Cells[1,3]:=floattostr(1/a13);
end;
Заполнение вот от туда он должен брать значения....

Ничего не понял.
Попробуем с начала.
1. Программа компилируется.
2. Нажимаем button1
3. Заполняется StringGrid1
4. Вызывается Ваша функция lamb
5. Внутри нее используется какой-то массив A, а не заполненный StringGrid.

Если то, что Вы привели, считать начальными данными, то где заполняется массив A ? Заполните его хоть где-нибудь. Я же не знаю для чего он у Вас предназначен. Например здесь:

stringgrid1.Cells[i,i]:=inttostr(g);             A[i,i] := g
stringgrid1.Cells[2,1]:=inttostr(a12);        A[2,1] := a12
stringgrid1.Cells[3,2]:=inttostr(a23);        A[3,2] := ...
stringgrid1.Cells[3,1]:=inttostr(a13);        ....  
stringgrid1.Cells[1,2]:=floattostr(1/a12);   ....
stringgrid1.Cells[2,3]:=floattostr(1/a23);   
stringgrid1.Cells[1,3]:=floattostr(1/a13);

ЗЫ. Когда пишете, что возникает ошибка, приводите ее текст и указывайте где она возникает. Код заключайте в теги CODE.

[Droid]

а я понял он его не видит ))) ок попробую если что черкану )