end; (RadioButton2.Visible=false) then.Caption:=Label3.Caption + П raquo ;;:=v + 1; (v gt; 15) then Form10.ShowModal () ;;
procedure TForm2.Button18Click (Sender: TObject);
begin (RadioButton2.Visible=true) then begin (sl=1) then begin.Caption:=IntToStr(StrToInt(Panel8.Caption)+StrToInt(Form6.Panel1.Caption));.ShowModal();.Caption:=laquo;Praquo;;:=k+1;end;((sl=2)or(sl=3)or(sl=4)or(sl=5)) then begin.ShowModal (); end; .Enabled:=false; (k=6) then begin (sl=1) then ShowMessage ( Ви абсолютно вірно відповіли Ренкіна ); (sl=2) then ShowMessage ( Ви абсолютно вірно відповіли НЬЮТОН ); (sl=3) then ShowMessage ( Ви абсолютно вірно відповіли ЛЮБОВ ); (sl=4) then ShowMessage ( Ви абсолютно вірно відповіли АЗБУКА ); (sl=5) then ShowMessage ( Ви абсолютно вірно відповіли ДОЛОТО ) ;. ShowModal () ;; end; (RadioButton2.Visible=false) then.Caption:=Label3.Caption + Р raquo ;;:=v + 1; (v gt; 15) then Form10.ShowModal () ;;
procedure TForm2.Button19Click (Sender: TObject);
begin (RadioButton2.Visible=true) then begin.ShowModal () ;. Enabled:=false; end; (RadioButton2.Visible=false) then.Caption:=Label3.Caption + З raquo ;;:=v + 1; (v gt; 15) then Form10.ShowModal () ;;
procedure TForm2.Button20Click (Sender: TObject);
begin (RadioButton2.Visible=true) then begin ((sl=1) or (sl=3) or (sl=4)) then begin.ShowModal (); end; (sl=2) then begin.Caption:=IntToStr(StrToInt(Panel8.Caption)+StrToInt(Form6.Panel1.Caption));.ShowModal();.Caption:=laquo;Traquo;;:=k+1;;(sl=5)then begin.Caption:=IntToStr(StrToInt(Panel8.Caption)+StrToInt(Form6.Panel1.Caption));.ShowModal();.Caption:=laquo;Traquo;;:=k+1;;(k=6)then begin (sl=1) then ShowMessage ( Ви абсолютно вірно відповіли Ренкіна ); (sl=2) then ShowMessage ( Ви абсолютно вірно відповіли НЬЮТОН ); (sl=3) then ShowMessage ( Ви абсолютно вірно відповіли ЛЮБОВ ); (sl=4) then ShowMessage ( Ви абсолютно вірно відповіли АЗБУКА ); (sl=5) then ShowMessage ( Ви абсолютно вірно відповіли ДОЛОТО ) ;. ShowModal () ;;. Enabled: =false; end; (RadioButton2.Visible=false) then.Caption:=Label3.Caption + Т raquo ;;:=v + 1; (v gt; 15) then Form10.ShowModal () ;;
procedure TForm2.Button21Click (Sender: TObject);
begin (RadioButton2.Visible=true) then begin ((sl=1) or (sl=2) or (sl=3) or (sl=5)) then begin.ShowModal (); end; .Enabled:=false; (sl=4) then begin.Caption:=IntToStr(StrToInt(Panel8.Caption)+StrToInt(Form6.Panel1.Caption));.ShowModal();.Caption:=laquo;Уraquo;;:=k+1;;(k=6)then begin (sl=1) then ShowMessage ( Ви абсолютно вірно відповіли Ренкіна ); (sl=2) then ShowMessage ( Ви абсолютно вірно відповіли НЬЮТОН ); (sl=3) then ShowMessage ( Ви абсолютно вірно відповіли ЛЮБОВ ); (sl=4) then ShowMessage ( Ви абсолютно вірно відповіли АЗБУКА ); (sl=5) then ShowMessage ( Ви абсолютно вірно відповіли ДОЛОТО ) ;. ShowModal () ;; end; ( RadioButton2.Visible=false) then.Caption:=Label3.Caption + У raquo ;;:=v + 1; (v gt; 15) then Form10.ShowModal () ;;
procedure TForm2.Button22Click (Sender: TObject);
begin (RadioButton2.Visible=true) then begin.ShowModal () ;. Enabled:=false; end; (RadioButton2.Visible=false) then.Caption:=Label3.Caption + Ф raquo ;;:=v + 1; (v gt; 15) then Form10.ShowModal () ;;
procedure TForm2.Button23Click (Sender: TObject);
begin (RadioButton2.Visible=true) then begin.ShowModal () ;. Enabled:=false; end; (RadioButton2.Visible=false) then.Caption:=Label3.Caption + Х raquo ;;:=v + 1; (v gt; 15) then Form10.ShowModal () ;;
procedure TForm2.Button24Click (Sender: TObject);
begin (RadioButton2.Visible=true) then begin.ShowModal () ;. Enabled:=false; end; (RadioButton2.Visible=false) then.Caption:=Label3.Caption + Ц raquo ;;:=v + 1; (v gt; 15) then Form10.ShowModal () ;;
procedure TForm2.Button25Click (Sender: TObject);
begin (RadioButton2.Visible=true) then begin.ShowModal () ;. Enabled:=false; end; (RadioButton2.Visible=false) then.Caption:=Label3.Caption + Ч raquo ;;:=v + 1; (v gt; 15) then Form10.ShowModal () ;;
procedure TForm2.Button26Click (Sender: TObject);
begin (RadioButton2.Visible=true) then begin.ShowModal () ;. Enabled:=false; end; (RadioButton2.Visible=false) then.Caption:=Label3.Caption + Ш raquo ;;:=v + 1; (v gt; 15) then Form10.ShowModal () ;;
procedure TForm2.Button27Click (Sender: TObject);
begin (RadioButton2.Visible=true) then begin.ShowModal () ;. Enabled:=false; end; (RadioButton2.Visible=false) then.Caption:=Label3.Caption + Щ raquo ;;:=v + 1; (v gt; 15) then Form10.ShowModal () ;;
pr...