begin

Form8.SpinEdit9.Value:=SpinEdit9.Value;

end;

procedure TForm1.ToolButton3Click(Sender: TObject);

begin

stop;

end;

procedure TForm1.Image8Click(Sender: TObject);

begin

stop;

end;

procedure TForm1.N10Click(Sender: TObject);

begin

Form7.Show;

end;

procedure TForm1.ToolButton11Click(Sender: TObject);

begin

Form7.Show;

end;

procedure TForm1.Image9Click(Sender: TObject);

begin

Form7.Show;

end;

end.

Модуль 2:

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, Buttons;

type

TForm2 = class(TForm)

Memo1: TMemo;

Label1: TLabel;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses Unit3;

{$R *.DFM}

procedure TForm2.BitBtn1Click(Sender: TObject);

begin

close;

end;

procedure TForm2.BitBtn2Click(Sender: TObject);

begin

Form3.Show;

end;

end.

Модуль 3:

unit Unit3;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, Buttons;

type

TForm3 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

BitBtn1: TBitBtn;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

{$R *.DFM}

end.

Модуль 4:

unit Unit4;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, Buttons;

type

TForm4 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

Label12: TLabel;

Label13: TLabel;

Label5: TLabel;

Label14: TLabel;

BitBtn1: TBitBtn;

Label15: TLabel;

Label16: TLabel;

Label17: TLabel;

Label18: TLabel;

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

{$R *.DFM}

procedure TForm4.BitBtn1Click(Sender: TObject);

begin

close;

end;

end.

Модуль 5:

unit Unit5;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, Buttons, ExtCtrls;

type

TForm5 = class(TForm)

Label8: TLabel;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Bevel2: TBevel;

Bevel1: TBevel;

Bevel3: TBevel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Label9: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Bevel4: TBevel;

Bevel5: TBevel;

Bevel6: TBevel;

Edit4: TEdit;

Edit5: TEdit;

Edit6: TEdit;

Label10: TLabel;

Label7: TLabel;

Label11: TLabel;

Label12: TLabel;

Bevel7: TBevel;

Bevel8: TBevel;

Bevel9: TBevel;

Edit7: TEdit;

Edit8: TEdit;

Edit9: TEdit;

Label13: TLabel;

Label14: TLabel;

Label15: TLabel;

Label16: TLabel;

Bevel10: TBevel;

Edit10: TEdit;

Bevel11: TBevel;

Edit11: TEdit;

Bevel12: TBevel;

Edit12: TEdit;

Label17: TLabel;

Label18: TLabel;

Label19: TLabel;

Label20: TLabel;

Edit13: TEdit;

Bevel13: TBevel;

Bevel14: TBevel;

Edit14: TEdit;

Edit15: TEdit;

Bevel15: TBevel;

Label21: TLabel;

Edit16: TEdit;

Bevel16: TBevel;

BitBtn1: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

{$R *.DFM}

procedure TForm5.BitBtn1Click(Sender: TObject);

begin

close;

end;

end.

Модуль 6:

unit Unit6;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

ExtCtrls, StdCtrls, Buttons;

type

TForm6 = class(TForm)

Image1: TImage;

BitBtn1: TBitBtn;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

{$R *.DFM}

end.

Модуль 7:

unit Unit7;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

ExtCtrls, StdCtrls, Buttons;

type

TForm7 = class(TForm)

Bevel1: TBevel;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Image1: TImage;

Label4: TLabel;

Label5: TLabel;

Image2: TImage;

Label6: TLabel;

Label7: TLabel;

Image3: TImage;

Label8: TLabel;

Image4: TImage;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

Image5: TImage;

Image6: TImage;

Splitter1: TSplitter;

Splitter2: TSplitter;

Bevel2: TBevel;

Label12: TLabel;

Label13: TLabel;

Shape1: TShape;

Label14: TLabel;

Label15: TLabel;

Label16: TLabel;

Shape5: TShape;

Label17: TLabel;

Shape10: TShape;

Shape2: TShape;

Label18: TLabel;

Shape3: TShape;

Label19: TLabel;

Label20: TLabel;

Label21: TLabel;

Label22: TLabel;

Shape4: TShape;

Label23: TLabel;

Label24: TLabel;

Shape6: TShape;

Label25: TLabel;

Label26: TLabel;

Label27: TLabel;

Label28: TLabel;

Label29: TLabel;

Label30: TLabel;

Label31: TLabel;

Bevel3: TBevel;

Label32: TLabel;

Label33: TLabel;

Label34: TLabel;

Label35: TLabel;

Label36: TLabel;

Label37: TLabel;

Label38: TLabel;

Label39: TLabel;

Label40: TLabel;

Label41: TLabel;

Image7: TImage;

Image8: TImage;

Label42: TLabel;

Bevel5: TBevel;

Label43: TLabel;

Label44: TLabel;

Label45: TLabel;

Image9: TImage;

Bevel4: TBevel;

BitBtn1: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form7: TForm7;

implementation

{$R *.DFM}

procedure TForm7.BitBtn1Click(Sender: TObject);

begin

close;

end;

end.

Модуль 8:

unit Unit8;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,

Buttons, ExtCtrls;

type

TAboutBox1 = class(TForm)

Panel1: TPanel;

ProgramIcon: TImage;

Version: TLabel;

Copyright: TLabel;

Comments: TLabel;

OKButton: TButton;

private

{ Private declarations }

public

{ Public declarations }