ошибки при выборе radiobutton

[_alis_]

Ребята, помогите пожалуйста!!!
Программа выглядит так: есть 2 radiobutton
1.выбираем конкретное значение
2.выбираем диапазон значений с помощью двух ComboBox
Проводим просчет и результат должен выводиться в таблицу при нажатии кнопки.

procedure TForm2.Button2Click(Sender: TObject);
var x,x1,x2,i,j:integer;
    d,R,p,lambda:array [1..8] of Integer;

begin
x:=0;
x1:=0;
x2:=0;

 if radiobutton1.Checked=true then
x:=StrToInt(Label9.Caption);//считываем конкретное значение
begin      //проводим расчет для данного случая
for i:=1 to 8 do
 begin
  d[i]:=x;
 end;
for i:=1 to 8 do
 begin
  R[i]:=x;
 end;
for i:=1 to 8 do
 begin
  p[i]:=i+4;
 end;
for i:=1 to 8 do
 begin
  lambda[i]:=i+5;
 end;

end;

if radiobutton2.Checked=true then
  
 x1:=StrToInt(ComboBox7.Text); //считываем диапазон
 x2:=StrToInt(ComboBox8.Text);

 begin   //проводим расчет для данного случая
for i:=1 to 8 do
 begin
  d[i]:=x1;
 end;
for i:=1 to 8 do
 begin
  R[i]:=x2;
 end;
for i:=1 to 8 do
 begin
  p[i]:=i+4;
 end;
for i:=1 to 8 do
 begin
  lambda[i]:=i+5;
 end;

end;

for i:=1 to 10 do //выводим результат в таблицу
  begin
with form2.StringGrid1 do
begin                       //именуем поля таблицы
cells[0,0]:='Nп/п';
cells[1,0]:='f';
cells[2,0]:='Epsilon';
cells[3,0]:='Epsilon1';
cells[4,0]:='delta_alfa';
cells[5,0]:='delta_b';
cells[6,0]:='Puasson';
cells[7,0]:='E';
cells[8,0]:='Diametr';
 
cells[0,i]:=inttostr(i);
  end;

StringGrid1.Cells[1,i]:=FormatFloat('0.00',d[i]);
StringGrid1.Cells[2,i]:=FormatFloat('0.00',R[i]);
StringGrid1.Cells[3,i]:=FormatFloat('0.00',p[i]);
StringGrid1.Cells[4,i]:=FormatFloat('0.00',lambda[i]);
end;

Подскажите, что я делаю не так, что у меня каждый раз выдает ошибку.
И еще - как правильно вставить в эту программу предупреждение о том, что при нулевых значениях просчет невозможен.
Буду очень-очень благодарна!!!!

[SERG1980]

procedure TForm2.Button2Click(Sender: TObject);
var x,x1,x2,i,j:integer;
d,R,p,lambda:array [1..8] of Integer;

begin
x:=0;
x1:=0;
x2:=0;

if radiobutton1.Checked=true then
x:=StrToInt(Label9.Caption);//считываем конкретное значение
begin //проводим расчет для данного случая
for i:=1 to 8 do
begin

if radiobutton2.Checked=true then

x1:=StrToInt(ComboBox7.Text); //считываем диапазон
x2:=StrToInt(ComboBox8.Text);

begin //проводим расчет для данного случая
for i:=1 to 8 do
begin

Вот с этим бегином что то непонятно, откуда он. Помоему вы тут с ними перемудрили, лучше исходник выложите

[_alis_]

вот программа

[SERG1980]

дЫк вы вроде всё исправили. только при закрытии формы 2 на крестик у вас форма 1 остаётся скрытой и приложение работает. Я бы сделал так

procedure TForm2.Button1Click(Sender: TObject);
begin
 form2.close;
end;


procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Application.Terminate;
end;
end;

[_alis_]

Исправила, но ведь программа не работает... Выдает ошибку "is not a valid integer value"