ocedure TForm2.Button28Click (Sender: TObject);
begin (RadioButton2.Visible=true) then begin ((sl=1) or (sl=4) or (sl=5)) then begin.ShowModal (); end; (sl=2) then begin.Caption:=IntToStr(StrToInt(Panel8.Caption)+StrToInt(Form6.Panel1.Caption));.ShowModal();.Caption:=laquo;Ьraquo;;:=k+1;;(sl=3) 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 () ;;. Enabled: =false; end; (RadioButton2.Visible=false) then.Caption:=Label3.Caption + Ь raquo ;;:=v + 1; (v gt; 15) then Form10.ShowModal () ;;
procedure TForm2.Button29Click (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.Button30Click (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.Button31Click (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.Button32Click (Sender: TObject);
begin (RadioButton2.Visible=true) then begin ((sl=1) or (sl=4) or (sl=5)) then.ShowModal (); (sl=2) then begin.Caption:=IntToStr(StrToInt(Panel8.Caption)+StrToInt(Form6.Panel1.Caption));.ShowModal();.Caption:=laquo;Юraquo;;:=k+1;;(sl=3)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 () ;;. Enabled: =false; end; (RadioButton2.Visible=false) then.Caption:=Label3.Caption + Ю raquo ;;:=v + 1; (v gt; 15) then Form10.ShowModal () ;;
procedure TForm2.Button33Click (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 () ;;.
Приклад форми і повідомляла про наявність букви в слові ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, jpeg, ExtCtrls, StdCtrls;=class (TForm): TLabel ;: TLabel ;: TButton ;: TImage; Button1Click (Sender: TObject);
{Private declarations}
{Public declarations} ;: TForm3;
implementationBaraban;
{$ R * .dfm} TForm3.Button1Click (Sender: TObject);
begin.ShowModal () ;;. Baraban ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, ExtCtrls, jpeg;=class (TForm): TLabel ;: TImage ;: TPanel ;: TButton ;: TTimer ;: TButton; Button1Click (Sender: TObject); FormCreate (Sender: TObject); Timer1Timer (Sender: TObject); Button2Click (Sender: TObject); FormShow (Sender: TObject);
{Private declarations}
{Public declarations} ;: TForm6;, i: integer;: string;
implementationNet_bukvi, Est_bukva;
{$ R * .dfm} TForm6.Button1Click (Sender: TObject);
begin.Close () ;. Close () ;. Close () ;;
procedure TForm6.FormCreate (Sender: TObject);
begin:=0 ;;
procedure TForm6.Timer1Timer (Sender: TObject);
begin:=i + 1; i gt; 4 then i:=1;:=intToStr (i) + .bmp raquo ;;. Picture.LoadFromFile (s) ;;:=1 + random (16); sl=1 then Panel1.Caption:= 100 raquo ;; sl=2 then Panel1.Caption:= 200 raquo ;; sl=3 then Panel1.Caption:= 300 raquo ;; sl=4 then Panel1.Caption:= 500 raquo ;; sl=5 then Panel1. Caption:= 700 raquo ;; sl=6 then Panel1.Caption:= 800 raquo ;; sl=7 then Panel1.Caption:= 100 raquo ;;...
