[Janom]

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

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
Label1.Visible:=True;
RadioButton1.Visible:=true;
RadioButton2.Visible:=true;
RadioButton3.Visible:=true;
RadioButton4.Visible:=true;
randomize;
i:=random(2);
case i of
1:
begin
label1.Caption:='что такое солнце?';
    RadioButton1.Caption:='Полнолуние';
    RadioButton2.Caption:='Шарик';
    RadioButton3.Caption:='Источник света';
    RadioButton4.Caption:='Планета';
if (RadioButton2.Checked) or (RadioButton1.Checked) or(RadioButton4.Checked)  then
 ShowMessage('Игра окончена');
 //Close;
end;
0:
Begin
label1.Caption:='Сколько делает 5+5?';
    RadioButton1.Caption:='11';
    RadioButton2.Caption:='10';
    RadioButton3.Caption:='14';
    RadioButton4.Caption:='9';
 if (RadioButton3.Checked) or (RadioButton1.Checked) or(RadioButton4.Checked)  then
 ShowMessage('Игра окончена');
 //Close;
End;

end;
if ((label1.Caption ='что такое солнце?') and (RadioButton3.Checked))
or ((Label1.Caption = 'Сколько делает 5+5?') and (RadioButton2.Checked)) then
begin
  randomize;
  i:=(2);
case i  of
0:
begin
 label1.Caption:='Как называется страна где живут лезгины?';
    RadioButton1.Caption:='Таджикистан';
    RadioButton2.Caption:='Армения';
    RadioButton3.Caption:='Россия';
    RadioButton4.Caption:='они повсюду';
if (RadioButton2.Checked) or (RadioButton1.Checked) or(RadioButton3.Checked)  then
 ShowMessage('Игра окончена');
end;
1:
begin
 label1.Caption:='Что из ниже причисленных не относится к компьютеру?';
    RadioButton1.Caption:='Камера';
    RadioButton2.Caption:='Колонки';
    RadioButton3.Caption:='Мышка';
    RadioButton4.Caption:='Ручка';
if (RadioButton2.Checked) or (RadioButton1.Checked) or(RadioButton4.Checked)  then
 ShowMessage('Игра окончена');
end;
end;
end;
end;

А почему программа не переходит на второй вопрос?

Ты это сам прочитать пробовал? я выделил то что в глаза бросается... но это конечно жесть)))