ПРИЛОЖЕНИЕ
program TestProgram;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit3 in 'Unit3.pas' {Form3};
{$R *.res}
begin
Application.Initialize;
Application.Title := 'Тестирующая
программа';
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm3, Form3);
Application.Run;
end.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants,
Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls, Menus, ComCtrls,
XPMan, StdCtrls, Buttons;
type
TForm1 = class(TForm)
Memo1: TMemo;
StatusBar1: TStatusBar;
GroupBox1: TGroupBox;
ComboBox1: TComboBox;
Label1: TLabel;
ConfirmBut: TButton;
Label2: TLabel;
Label3: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Image1: TImage;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N7: TMenuItem;
N9: TMenuItem;
Panel1: TPanel;
GroupBox2: TGroupBox;
RadioGroup1: TRadioGroup;
Button1: TButton;
Label4: TLabel;
GroupBox3: TGroupBox;
Label5: TLabel;
RadioGroup2: TRadioGroup;
Button2: TButton;
GroupBox4: TGroupBox;
Label6: TLabel;
RadioGroup3: TRadioGroup;
Button3: TButton;
GroupBox5: TGroupBox;
Label7: TLabel;
RadioGroup4: TRadioGroup;
Button4: TButton;
GroupBox6: TGroupBox;
Label8: TLabel;
RadioGroup5: TRadioGroup;
Button5: TButton;
Image2: TImage;
GroupBox7: TGroupBox;
Label9: TLabel;
Image3: TImage;
RadioGroup6: TRadioGroup;
Button6: TButton;
GroupBox8: TGroupBox;
Label10: TLabel;
Image4: TImage;
RadioGroup7: TRadioGroup;
Button7: TButton;
GroupBox9: TGroupBox;
Label11: TLabel;
RadioGroup8: TRadioGroup;
Button8: TButton;
Panel2: TPanel;
GroupBox10: TGroupBox;
Label12: TLabel;
RadioGroup9: TRadioGroup;
Button9: TButton;
GroupBox11: TGroupBox;
Label13: TLabel;
RadioGroup10: TRadioGroup;
Button10: TButton;
GroupBox12: TGroupBox;
Label14: TLabel;
RadioGroup11: TRadioGroup;
Button11: TButton;
GroupBox13: TGroupBox;
Label15: TLabel;
RadioGroup12: TRadioGroup;
Button12: TButton;
GroupBox14: TGroupBox;
Label16: TLabel;
Image5: TImage;
RadioGroup13: TRadioGroup;
Button13: TButton;
GroupBox15: TGroupBox;
Label17: TLabel;
Image6: TImage;
RadioGroup14: TRadioGroup;
Button14: TButton;
GroupBox16: TGroupBox;
Label18: TLabel;
Image7: TImage;
RadioGroup15: TRadioGroup;
Button15: TButton;
GroupBox17: TGroupBox;
Label19: TLabel;
RadioGroup16: TRadioGroup;
Button16: TButton;
Panel3: TPanel;
GroupBox18: TGroupBox;
Label20: TLabel;
RadioGroup17: TRadioGroup;
Button17: TButton;
GroupBox19: TGroupBox;
Label21: TLabel;
RadioGroup18: TRadioGroup;
Button18: TButton;
GroupBox20: TGroupBox;
Label22: TLabel;
RadioGroup19: TRadioGroup;
Button19: TButton;
GroupBox21: TGroupBox;
Label23: TLabel;
RadioGroup20: TRadioGroup;
Button20: TButton;
GroupBox22: TGroupBox;
Label24: TLabel;
Image8: TImage;
RadioGroup21: TRadioGroup;
Button21: TButton;
GroupBox23: TGroupBox;
Label25: TLabel;
Image9: TImage;
RadioGroup22: TRadioGroup;
Button22: TButton;
GroupBox24: TGroupBox;
Label26: TLabel;
Image10: TImage;
RadioGroup23: TRadioGroup;
Button23: TButton;
GroupBox25: TGroupBox;
Label27: TLabel;
RadioGroup24: TRadioGroup;
Button24: TButton;
Panel4: TPanel;
GroupBox26: TGroupBox;
Label28: TLabel;
RadioGroup25: TRadioGroup;
Button25: TButton;
GroupBox27: TGroupBox;
Label29: TLabel;
RadioGroup26: TRadioGroup;
Button26: TButton;
GroupBox28: TGroupBox;
Label30: TLabel;
RadioGroup27: TRadioGroup;
Button27: TButton;
GroupBox29: TGroupBox;
Label31: TLabel;
RadioGroup28: TRadioGroup;
Button28: TButton;
GroupBox30: TGroupBox;
Label32: TLabel;
Image11: TImage;
RadioGroup29: TRadioGroup;
Button29: TButton;
GroupBox31: TGroupBox;
Label33: TLabel;
Image12: TImage;
RadioGroup30: TRadioGroup;
Button30: TButton;
GroupBox32: TGroupBox;
Label34: TLabel;
Image13: TImage;
RadioGroup31: TRadioGroup;
Button31: TButton;
GroupBox33: TGroupBox;
Label35: TLabel;
RadioGroup32: TRadioGroup;
Button32: TButton;
XPManifest1: TXPManifest;
procedure N9Click(Sender:
TObject);
procedure N3Click(Sender:
TObject);
procedure FormCreate(Sender:
TObject);
procedure Timer_sysTimer(Sender:
TObject);
procedure N2Click(Sender:
TObject);
procedure ConfirmButClick(Sender:
TObject);
procedure Button1Click(Sender:
TObject);
procedure Button2Click(Sender:
TObject);
procedure Button3Click(Sender:
TObject);
procedure Button4Click(Sender:
TObject);
procedure Button5Click(Sender:
TObject);
procedure Button6Click(Sender:
TObject);
procedure Button7Click(Sender:
TObject);
procedure Button8Click(Sender:
TObject);
procedure Button9Click(Sender:
TObject);
procedure Button10Click(Sender:
TObject);
procedure Button11Click(Sender:
TObject);
procedure Button12Click(Sender:
TObject);
procedure Button13Click(Sender:
TObject);
procedure Button14Click(Sender:
TObject);
procedure Button15Click(Sender:
TObject);
procedure Button16Click(Sender:
TObject);
procedure Button17Click(Sender:
TObject);
procedure Button18Click(Sender:
TObject);
procedure Button19Click(Sender:
TObject);
procedure Button20Click(Sender:
TObject);
procedure Button21Click(Sender:
TObject);
procedure Button22Click(Sender:
TObject);
procedure Button23Click(Sender:
TObject);
procedure Button24Click(Sender:
TObject);
procedure Button25Click(Sender:
TObject);
procedure Button26Click(Sender:
TObject);
procedure Button27Click(Sender:
TObject);