;. Caption:= пояснення raquo ;;. Caption:= наслідок raquo ;;. Caption:= laquo ; натяк raquo ;;. Visible:=false; .Top:=Button1.Top; .Left:=Button1.Left; .Visible:=true;:=num + 1; .Caption:=IntToStr (num) ;. Caption: =IntToStr (ball) ;. Caption:= Питання номер + IntToStr (num) ;; TForm2.FormCreate (Sender: TObject) ;. Position:=poDeskTopCenter;
//ball:=0;
//num:=1;
//sec:=0; .Caption:= raquo ;;. Caption:=IntToStr (num) ;. Caption:= raquo ;;. Visible:=false; .Visible :=false; .Visible:=false; .Caption:= Питання номер: + IntToStr (num) ;. Caption:= raquo ;;. Visible:=false ;; TForm2.FormClose (Sender: TObject; var Action: TCloseAction) ;. Close ;; TForm2.Button2Click (Sender: TObject); RadioButton5.Checked=true then:=ball + 1:=ball;
Label1.Caption:= Протилежністю зради є ... raquo ;;
RadioButton1.Caption:= любов raquo ;;. Caption:= дармоїдство raquo ;;. Caption:= хитрість raquo ;;. Caption:= боягузтво raquo ;;. Caption:= laquo ; відданість raquo ;;. Visible:=false; .Top:=Button1.Top; .Left:=Button1.Left; .Visible:=true;:=num + 1; .Caption:=IntToStr (num) ;. Caption: =IntToStr (ball) ;. Caption:= Питання номер: + IntToStr (num) ;; TForm2.Button3Click (Sender: TObject); RadioButton3.Checked=true then:=ball + 1:=ball;
Label1.Caption:= Обід не може відбутися без ... raquo ;;
RadioButton1.Caption:= столу raquo ;;. Caption:= сервізу raquo ;;. Caption:= їжі raquo ;;. Caption:= води raquo ;;. Caption:= laquo ; голоду raquo ;;. Visible:=false; .Top:=Button1.Top; .Left:=Button1.Left; .Visible:=true;:=num + 1; .Caption:=IntToStr (num) ;. Caption: =IntToStr (ball) ;. Caption:= Питання номер: + IntToStr (num) ;; TForm2.Button4Click (Sender: TObject); RadioButton5.Checked=true then:=ball + 1:=ball;
Label1.Caption:= Жінки ... бувають вище чоловіків. raquo ;;
RadioButton1.Caption:= завжди raquo ;;. Caption:= зазвичай raquo ;;. Caption:= часто raquo ;;. Caption:= ніколи не raquo ;;. Caption:= іноді raquo ;;. Visible:=false; .Top:= Button1.Top; .Left:=Button1.Left; .Visible:=true;:=num + 1; .Caption:=IntToStr (num) ;. Caption:=IntToStr (ball) ;. Caption:= Питання номер: + IntToStr (num) ;; TForm2.Button5Click (Sender: TObject); RadioButton1.Checked=true then:=ball + 1:=ball;
Label1.Caption:= Заняттям, протилежним відпочинку, є ... raquo ;;
RadioButton1.Caption:= праця raquo ;;. Caption:= турбота raquo ;;. Caption:= втома raquo ;;. Caption:= прогулянка raquo ;;. Caption:= laquo ; тренування raquo ;;. Visible:=false; .Top:=Button1.Top; .Left:=Button1.Left; .Visible:=true;:=num + 1; .Caption:=IntToStr (num) ;. Caption: =IntToStr (ball) ;. Caption:= Питання номер: + IntToStr (num) ;; TForm2.Button6Click (Sender: TObject); RadioButton4.Checked=true then:=ball + 1:=ball;
Label1.Caption:= Для торгівлі необхідно мати ... raquo ;;
RadioButton1.Caption:= магазин raquo ;;. Caption:= гроші raquo ;;. Caption:= прилавок raquo ;;. Caption:= товари raquo ;;. Caption:= laquo ; ваги raquo ;;. Visible:=false; .Top:=Button1.Top; .Left:=Button1.Left; .Visible:=true;:=num + 1; .Caption:=IntToStr (num) ;. Caption: =IntToStr (ball) ;. Caption:= Питання номер: + IntToStr (num) ;; TForm2.Button7Click (Sender: TObject); RadioButton2.Checked=true then:=ball + 1:=ball;
Label1.Caption:= Коли суперечка закінчується взаємною поступкою, це називається ... raquo ;;
RadioButton1.Caption:= конвенцією raquo ;;. Caption:= компромісом raquo ;;. Caption:= розв'язкою raquo ;;. Caption:= змовою raquo ;;. Caption:= laquo ; примиренням raquo ;;. Visible:=false; .Top:=Button1.Top; .Left:=Button1.Left; .Visible:=true;:=num + 1; .Caption:=IntToStr (num) ;. Caption: =IntToStr (ball) ;. Caption:= Питання номер: + IntToStr (num) ;; TForm2.Button8Click (Sender: TObject); RadioButton5.Checked=true then:=ball + 1:=ball;
Label1.Caption:= Людину, яка погано ставиться до нововведень, називають ... raquo ;;
RadioButton1.Caption:= анархістом raquo ;;. Caption:= лібералом raquo ;;. Caption:= демократом raquo ;;. Caption:= радикалом raquo ;;. Caption:= laquo ; консерватором raquo ;;. Visible:=false; .Top:=Button1.Top; .Left:=Button1.Left; .Visible:=true;:=num + 1; .Caption:=IntToStr (num) ;. Caption: =IntToStr (ball) ;. Caption:= Питання номер: + IntToStr (num) ;; TForm2.Button9Click (Sender: TObject); RadioButton1.Checked=true then:=ball + 1:=ball;
Label1.Caption:= Сини ... перевершують батьків по життєвому досвіду ... raquo ;;
RadioButton1.Caption:= ніколи не raquo ;;. Caption:= часто raquo ;;. Caption:= рідко raquo ;;. Captio...