lick (Sender: TObject); Button24Click (Sender: TObject); Button25Click (Sender: TObject); Button26Click (Sender: TObject); Button27Click (Sender: TObject); Button28Click (Sender: TObject); Button29Click (Sender: TObject); Button30Click (Sender: TObject); Button31Click (Sender: TObject); Button32Click (Sender: TObject); Button33Click (Sender: TObject);
{Private declarations}
{Public declarations} ;: TForm2;, sl, v, c: integer;
implementationBaraban, Spros, Round2, Porajenie, Net_bukvi, Est_bukva;
{$ R * .dfm} TForm2.FormShow (Sender: TObject);
begin:=0 ;;:=1 + random (5); sl=1 then Form2.Label2.Caption:= Фізик, який винайшов цикл роботи сучасних ТЕС. raquo ;; sl= 2 then Form2.Label2.Caption:= Фізик, який відкрив 3 яблучних закону. raquo ;; sl=3 then Form2.Label2.Caption:= Почуття, що штовхає людей на подвиги. raquo ;; sl=4 then Form2.Label2.Caption:= Книга про набір символів мови. raquo ;; sl=5 then Form2.Label2.Caption:= Основний породоразрушающий інстумент в Газпромі. raquo ;;. ShowModal () ;. Visible:=false;.Visible:=false; .Visible:=false ;;
procedure TForm2.FormClose (Sender: TObject; var Action: TCloseAction);
begin ( Поточне кількість очок: + Panel8.Caption); MessageDlg ( Вийти з гри? , mtConfirmation, [mbYes, mbNo], 0)=mrYesbegin:=caFree ; .ShowModal ();:=caNone ;;
procedure TForm2.RadioButton2Click (Sender: TObject);
begin:=0;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=true;.Visible:=true;.Visible:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;;
procedure TForm2.Button34Click (Sender: TObject);
begin.Caption:= raquo ;;:=0 ;;
procedure TForm2.Button35Click (Sender: TObject);
beginLabel3.Caption= then ShowMessage ( Ви не ввели відповідь на питання. ) else(((sl=1)and(Label3.Caption=laquo;РЕНКИНraquo;))or((sl=2)and(Label3.Caption=laquo;НЬЮТОНraquo;))or((sl=3)and(Label3.Caption=laquo;ЛЮБОВЬraquo;))or((sl=4)and(Label3.Caption=laquo;АЗБУКАraquo;))or((sl=5)and(Label3.Caption=laquo;ДОЛОТОraquo;)))begin.Caption:=IntToStr(StrToInt(Panel8.Caption)+1500);(laquo;Ваш відповідь вірний ) ;. ShowModal (); Form10.ShowModal () ;;
procedure TForm2.Button1Click (Sender: TObject);
begin (RadioButton2.Visible=true) then begin ((sl=1) or (sl=3) or (sl=2) or (sl=5)) then begin.ShowModal (); ; (sl=4) then begin.Caption:=IntToStr(StrToInt(Panel8.Caption)+StrToInt(Form6.Panel1.Caption));.Caption:=IntToStr(StrToInt(Panel8.Caption)+StrToInt(Form6.Panel1.Caption));.ShowModal();.Caption:=laquo;Araquo;;.Caption:=laquo;Araquo;;:=k+2;;k=6begin(sl=1) then ShowMessage ( Ви абсолютно вірно відповіли Ренкіна ); (sl=2) then ShowMessage ( Ви абсолютно вірно відповіли НЬЮТОН ); (sl=3) then ShowMessage ( Ви абсолютно вірно відповіли ЛЮБОВ ); ( sl=4) then ShowMessage ( Ви абсолютно вірно відповіли АЗБУКА ); (sl=5) then ShowMessage ( Ви абсолютно вірно відповіли ДОЛОТОraquo;);.ShowModal();;.Enabled:=false;;(RadioButton2.Visible=false)Label3.Caption:=Label3.Caption+laquo;Аraquo;;:=v+1;(vgt;15) then Form10.ShowModal ();
end; TForm2.Button2Click (Sender: TObject);
begin(RadioButton2.Visible=true)begin((sl=1)or(sl=2)or(sl=5))begin.ShowModal();;(sl=3)begin.Caption:=IntToStr(StrToInt(Panel8.Caption)+StrToInt(Form6.Panel1.Caption));.ShowModal();.Caption:=laquo;Бraquo;;:=k+1;;(sl=4)begin.Caption:=IntToStr(StrToInt(Panel8.Caption)+StrToInt(Form6.Panel1.Caption));.ShowModal();.Caption:=laquo;Бraquo;;:=k+1;;(k=6)begin(sl=1) then ShowMessage ( Ви абсолютно вірно відповіли Ренкіна ); (sl=2) then ShowMessage ( Ви абсолютно вірно відповіли НЬЮТОН ); (sl=3) then ShowMessage ( Ви абсолютно вірно відповіли ЛЮБОВ ); ( sl=4) then ShowMessage ( Ви абсолютно вірно відповіли АЗБУКА ); (sl=5) then ShowMessage ( Ви абсолютно вірно відповіли ДОЛОТО ) ;. ShowModal () ;;. Enabled:=false ;; (RadioButton2.Visible=false) then.Caption:=Label3.Caption + Б raquo ;;:=v + 1; (v gt; 15) then Form10.ShowModal () ;;
procedure TForm2.Button3Click (Sender: TObject);
begin(RadioButton2.Visible=true)begin((sl=1)or(sl=4)or(sl=2)or(sl=5))begin.ShowModal();;(sl=3)be...
