Запуск програми здійснюється подвійним натисканням на файл Project. exe. Після запуску програмного продукту з'являється титульна форма проекту (рисунок 4.1).

Рисунок 4.1 - Титульна форма проекту

Користувач може вибрати один з пропонованих варіантів переходу: "Информационная система", "Страничка автора", "Критериальный поиск", Видео".

"Информационная система" - Ця форма надає користувачеві інформацію на тему "перспективи розвитку штучного інтелекту" (Рисунок 4.2).

Рисунок 4.2 - Інформаційна система

У цій системі можна вибрати будь-який з розділів і ознайомитися з інформацією, що надається. Так само на формі є панель управління за допомогою якої можна повернутися на титульну сторінку, поглянути інформацію про автора, поглянути відео ролик, отформувати текст (рисунок 4.3).

Рисунок 4.3 - панель управління

Також передбачена можливість пошуку тексту за допомогою кнопки пошуку розташованою на формі. Також можна скористатися багатокритерійним пошуком натиснувши на кнопку

"Страничка автора" - Перейшовши на сторінку автора, користувач зможе дізнатися інформацію про розробника, його адресу та інше (Рисунок 4.4).

Рисунок 4.4 - Сторінка автора

"Критериальный поиск" - за допомогою даного виду пошуку користувач зможе знайти потрібні йому слова в тексті інформаційної системи та дізнатись їх кількість (Рисунок 4.5).

Рисунок 4.5 - Багатокритеріальний пошук

Так само за допомогою кнопки "статистика" яка розташована на формі критерійного пошуку, користувач зможе поглянути звіт по запрошуваному пошуку у вигляді гістограми (Рисунок 4.6).

Рисунок 4.6 - Гістограма статистики

"Видео" - переходячи на сторінку відео матеріалу користувач зможе проглянути короткометражний відео-ролик присвячений даній темі (рисунок 4.7).

Рисунок 4.7 - Відео матеріал

Висновки

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, ComCtrls, ExtCtrls, jpeg, Buttons;

type

TMainForm = class (TForm)

Image1: TImage;

SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton;

SpeedButton3: TSpeedButton;

SpeedButton4: TSpeedButton;

SpeedButton5: TSpeedButton;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

Label12: TLabel;

procedure Button1Click (Sender: TObject);

procedure FormCreate (Sender: TObject);

procedure SpeedButton1Click (Sender: TObject);

procedure SpeedButton2Click (Sender: TObject);

procedure SpeedButton4Click (Sender: TObject);

procedure SpeedButton3Click (Sender: TObject);

procedure SpeedButton5Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

MainForm: TMainForm;

implementation

uses StrUtils, Unit3, Unit2, Unit6, Unit4;

{$R *. dfm}

procedure TMainForm. Button1Click (Sender: TObject);

var

region: HRGN;

begin

region: =CreateEllipticRgn (100,100,900,850);

SetWindowRgn (Self. Handle, Region, True);

end;

procedure TMainForm. FormCreate (Sender: TObject);

var

region: HRGN;

begin

region: =CreateEllipticRgn (10,27,810,627);

SetWindowRgn (Self. Handle, Region, True);

end;

procedure TMainForm. SpeedButton1Click (Sender: TObject);

begin

MainForm. Hide;

Form2. Show;

end;

procedure TMainForm. SpeedButton2Click (Sender: TObject);

begin

MainForm. Hide;

Form6. Show;

end;

procedure TMainForm. SpeedButton4Click (Sender: TObject);

begin

MainForm. Hide;

Form4. Show;

end;

procedure TMainForm. SpeedButton3Click (Sender: TObject);

begin

MainForm. Hide;

FindGlobal. Show;

end;

procedure TMainForm. SpeedButton5Click (Sender: TObject);

begin

close;

end;

end.

Форма інформаційної системи

(компонент TreeView1)

unit Unit2;

interface

uses

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

Dialogs, Menus, StdCtrls, ComCtrls, ExtCtrls, Buttons, jpeg;

type

TForm2 = class (TForm)

TreeView1: TTreeView;

Image1: TImage;

RichEdit1: TRichEdit;

Label1: TLabel;

MainMenu1: TMainMenu;

N1: TMenuItem;

F1: TMenuItem;

hghgh1: TMenuItem;

Help1: TMenuItem;

ghfhgf1: TMenuItem;

FindDialog1: TFindDialog;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

Image2: TImage;

SpeedButton2: TSpeedButton;

procedure TreeView1Change (Sender: TObject; Node: TTreeNode);

procedure FindDialog1Find (Sender: TObject);

procedure BitBtn1Click (Sender: TObject);

procedure hghgh1Click (Sender: TObject);

procedure BitBtn2Click (Sender: TObject);

procedure F1Click (Sender: TObject);

procedure SpeedButton2Click (Sender: TObject);

procedure FormCreate (Sender: TObject);

procedure ghfhgf1Click (Sender: TObject);

procedure Help1Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

spos: integer;

a: integer;

implementation

uses Unit4, Unit3, Unit1, Unit6;

{$R *. dfm}

procedure TForm2. FormCreate (Sender: TObject);

begin

a: =1;

end;

procedure TForm2. TreeView1Change (Sender: TObject; Node: TTreeNode);

begin

// Form1. RichEdit1. Clear;

case TreeView1. Selected. AbsoluteIndex of

0: begin

Form2. RichEdit1. Visible: =False;

form2. SpeedButton2. Visible: =false;

// Form2. RichEdit1. Clear;

Form2. Label1. Caption: ='Перспективы развития искусственного интеллекта';

Form2. Image1. Picture. LoadFromFile ('1\P\01. bmp');

end;

1: begin

Form2. RichEdit1. Visible: =true;

Form2. RichEdit1. Lines. LoadFromFile ('1\txt\1. Введение. txt');

Form2. Label1. Caption: =' Введение';

Form2. Image1. Picture. LoadFromFile ('1\P\01. bmp');

form2. SpeedButton2. Visible: =false;

end;

2: begin

Form2. RichEdit1. Visible: =true;

RichEdit1. Lines. LoadFromFile ('1\txt\2. ИИ - новая информационная революция. txt');

Form2. Label1. Caption: ='Искусственный интеллект - новая информационная революция';

form2. SpeedButton2. Visible: =false;

Form2. Image1. Picture. LoadFromFile ('1\P\01. bmp');

end;

3: begin

Form2. RichEdit1. Visible: =true;

RichEdit1. Lines. LoadFromFile ('1\txt\3. Применение ИИ. txt');

Form2. Label1. Caption: ='Применение искусстенного интеллекта';

form2. SpeedButton2. Visible: =false;

Form2. Image1. Picture. LoadFromFile ('1\P\01. bmp');

end;

4: begin

Form2. RichEdit1. Visible: =true;

RichEdit1. Lines. LoadFromFile ('1\txt\4. Перспективы ИИ. txt');

Form2. Label1. Caption: ='Перспективы искусственного интеллекта';

form2. SpeedButton2. Visible: =false;

Form2. Image1. Picture. LoadFromFile ('1\P\01. bmp');

end;

5: begin

Form2. RichEdit1. Visible: =true;

RichEdit1. Lines. LoadFromFile ('1\txt\4.1 тенденции развития ИИ. txt');

Form2. Label1. Caption: ='Перспективы искусственного интеллекта';

form2. SpeedButton2. Visible: =false;

Form2. Image1. Picture. LoadFromFile ('1\P\02. bmp');

end;

6: begin

Form2. RichEdit1. Visible: =true;

RichEdit1. Lines. LoadFromFile ('1\txt\4.2 Оснащение машин знаниями. txt');

Form2. Label1. Caption: ='Перспективы искусственного интеллекта';

form2. SpeedButton2. Visible: =false;

Form2. Image1. Picture. LoadFromFile ('1\P\03. bmp');

end;

7: begin

Form2. RichEdit1. Visible: =true;

RichEdit1. Lines. LoadFromFile ('1\txt\4.3 Перспективные технологии. txt');

Form2. Label1. Caption: ='Перспективы искусственного интеллекта';

form2. SpeedButton2. Visible: =True;

Form2. Image1. Picture. LoadFromFile ('1\P\T3. bmp');

end;

8: begin

Form2. RichEdit1. Visible: =true;

RichEdit1. Lines. LoadFromFile ('1\txt\4.4 Эволюционные вычисления. txt');

Form2. Label1. Caption: ='Перспективы искусственного интеллекта';

form2. SpeedButton2. Visible: =false;

Form2. Image1. Picture. LoadFromFile ('1\P\05. bmp');

end;

9: begin

Form2. RichEdit1. Visible: =true;

Form2. Label1. Caption: ='Проблемы связанные с искусственным интеллектом';

form2. SpeedButton2. Visible: =false;

Form2. Image1. Picture. LoadFromFile ('1\P\04. bmp');

end;

10: begin

Form2. RichEdit1. Visible: =true;

RichEdit1. Lines. LoadFromFile ('1\txt\5.1 Проблема безопасности. txt');

Form2. Label1. Caption: ='Проблемы связанные с искусственным интеллектом';

form2. SpeedButton2. Visible: =false;

Form2. Image1. Picture. LoadFromFile ('1\ P\04. bmp');

end;

11: begin

Form2. RichEdit1. Visible: =true;

RichEdit1. Lines. LoadFromFile ('1\txt\5.2 Проблема создания ии. txt');

Form2. Label1. Caption: ='Проблемы связанные с искусственным интеллектом';

form2. SpeedButton2. Visible: =false;

Form2. Image1. Picture. LoadFromFile ('1\P\04. bmp');

end;

12: begin

Form2. RichEdit1. Visible: =true;

Form2. Label1. Caption: ='Отношение к искусственному интеллекту в обществе';

form2. SpeedButton2. Visible: =false;

Form2. Image1. Picture. LoadFromFile ('1\P\01. bmp');

end;

13: begin

Form2. RichEdit1. Visible: =true;

RichEdit1. Lines. LoadFromFile ('1\txt\6.1 Искусственный интеллект и религия. txt');

Form2. Label1. Caption: ='Отношение к искусственному интеллекту в обществе';

form2. SpeedButton2. Visible: =false;

Form2. Image1. Picture. LoadFromFile ('1\P\01. bmp');

end;

14: begin

Form2. RichEdit1. Visible: =true;

RichEdit1. Lines. LoadFromFile ('1\txt\6.2 Искусственный интеллект и научная фантастика. txt');

Form2. Label1. Caption: ='Отношение к искусственному интеллекту в обществе';

form2. SpeedButton2. Visible: =false;

Form2. Image1. Picture. LoadFromFile ('1\P\01. bmp');

end;

15: begin

Form2. RichEdit1. Visible: =true;

RichEdit1. Lines. LoadFromFile ('1\txt\Заключение. txt');

Form2. Label1. Caption: =' Заключение';

form2. SpeedButton2. Visible: =false;

end;

end;

end;

procedure TForm2. FindDialog1Find (Sender: TObject);

begin

with FindDialog1 do

begin

if FrMatchCase in Options

// поиск с учётом регистра

then

RichEdit1. SelStart: =Pos (FindText,copy (RichEdit1. Text,Spos+1,Length (RichEdit1. text))) +spos-1

else

// поиск без учета регистра

RichEdit1. SelStart: =pos (ansilowercase (findtext),ansilowercase (copy (RichEdit1. Text,spos+1,Length (RichEdit1. text)))) +spos-1;

if RichEdit1. SelStart>=Spos

then

begin

// выделение найденного текста

RichEdit1. SelLength: =Length (findtext);

// изменение начальной позиции поиска

Spos: =RichEdit1. SelStart + RichEdit1. SelLength+1;

end

else

if MessageDlg ('Текст"'+FindText+'"не найден',mtconfirmation, [mbok],0) <>mrok

then CloseDialog;

RichEdit1. SetFocus;

end;

end;

procedure TForm2. BitBtn1Click (Sender: TObject);

begin

Spos: =RichEdit1. SelStart;

// Запоминание позиции курсора

with FindDialog1 do

begin

{Начальное значение поиска текста, выделенного в Мемо}

FindText: =RichEdit1. SelText;

// позиционирование окна диалога внизу Memo

position: =Point (Form2. Left,Form2. Top+RichEdit1. Top+RichEdit1. Height);

// удаление из окна диалога кнопок "Вверх", "Вниз", "Только слово целиком", настройка диалогового окна

Options: =Options + [frhideupdown,frhidewholeword];

// запуск диалога

Execute;

end;

end;

procedure TForm2. hghgh1Click (Sender: TObject);

begin

Form4. Show;

end;

procedure TForm2. BitBtn2Click (Sender: TObject);

begin

FindGlobal. Show;

end;

procedure TForm2. F1Click (Sender: TObject);

begin

Form2. Hide;

MainForm. Show;

end;

procedure TForm2. SpeedButton2Click (Sender: TObject);

begin

Form2. Image1. Picture. LoadFromFile ('1\P\T' + IntToStr (a) + '. bmp');

inc (a);

if a > 3 then

a: = 1;

end;

procedure TForm2. ghfhgf1Click (Sender: TObject);

begin

close;

end;

procedure TForm2. Help1Click (Sender: TObject);

begin

Form2. Hide;

Form6. Show;

end;

end.

Форма багатокритеріального пошуку

unit Unit3;

interface

uses

Windows, Messages, ComCtrls, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, StdCtrls, Grids, SHDocVw,

mshtml, OleCtrls, StrUtils, Buttons, jpeg;

type

TFindGlobal = class (TForm)

GroupBox2: TGroupBox;

StringGrid1: TStringGrid;

GroupBox6: TGroupBox;

WebBrowser1: TWebBrowser;

Memo2: TMemo;

GroupBox7: TGroupBox;

RadioButton5: TRadioButton;

RadioButton6: TRadioButton;

Image1: TImage;

Label1: TLabel;

SpeedButton5: TSpeedButton;

RichEdit2: TRichEdit;

RichEdit1: TRichEdit;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

procedure FormCreate (Sender: TObject);

procedure SpeedButton5Click (Sender: TObject);

procedure BitBtn1Click (Sender: TObject);

procedure BitBtn2Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FindGlobal: TFindGlobal;

implementation

uses

Unit1, Unit5, Unit2;

{$R *. dfm}

procedure TFindGlobal. FormCreate (Sender: TObject);

begin

StringGrid1. RowCount: = 500;

end;

procedure TFindGlobal. SpeedButton5Click (Sender: TObject);

begin

findGlobal. Hide;

form2. Show;

end;

procedure TFindGlobal. BitBtn1Click (Sender: TObject);

var

count: integer;

i, k: byte;

s1,s2: string;

ps: cardinal;

begin

// очищаем таблицу

for i: = 1 to StringGrid1. RowCount do

StringGrid1. Rows [i]. Clear;

// проверяем наличие слов для поиска

if Memo2. Text = '' then begin

ShowMessage ('Вы забыли ввести слова для поиска. ');

exit;

end;

count: = 0;

for k: = 0 to RichEdit2. Lines. Count-1 do begin

RichEdit1. Lines. LoadFromFile (RichEdit2. Lines [k]);

s1: = Memo2. Text;

s2: = RichEdit1. Text;

if not RadioButton5. Checked then begin

s1: = AnsiLowerCase (s1);

s2: = AnsiLowerCase (s2);

end;

ps: = 1;

while ps < Length (RichEdit1. Text) do begin

if PosEx (s1,s2,ps) <> 0 then begin

inc (count);

ps: = PosEx (s1,s2,ps) + length (s1)

end

else break;

end;

with StringGrid1 do begin

Cells [0,k+1]: = RichEdit2. Lines [k];

Cells [1,k+1]: = IntToStr (count);

{ with ProgressBar1 do

Position: = round (Max / Memo1. Lines. Count * (i+1)); }

end;

end;

// Заполняем таблицу на форме статистики

for i: = 1 to RichEdit2. Lines. Count do

with Tabl. StringGrid1 do begin

Cells [0, i]: = IntToStr (i); // порядковый номер

Cells [1, i]: = IntToStr (Random (999999)); // цвет

Cells [2, i]: = FindGlobal. StringGrid1. Cells [0, i]; // слово

Cells [3, i]: = FindGlobal. StringGrid1. Cells [1, i]; // совпадений

end;

Tabl. StringGrid1. RowCount: = RichEdit2. Lines. Count+1;

end;

procedure TFindGlobal. BitBtn2Click (Sender: TObject);

begin

FindGlobal. Hide;

Tabl. show;

end;

end.

Форма статистики пошуку

unit unit5;

interface

uses

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

Dialogs, StdCtrls, ComCtrls, ExtCtrls, XPMan, Grids, jpeg;

type

TTabl = class (TForm)

StringGrid1: TStringGrid;

Button1: TButton;

Button2: TButton;

Image1: TImage;

procedure FormPaint (Sender: TObject);

procedure StringGrid1DrawCell (Sender: TObject; ACol, ARow: Integer;

Rect: TRect; State: TGridDrawState);

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Tabl: TTabl;

implementation

uses Unit3, Unit2, Unit1;

{$R *. dfm}

procedure TTabl. FormPaint (Sender: TObject);

var

Mx: integer;

My: integer;

xmin,xmax,ymin,ymax: integer;

function Xe (x: integer): integer;

begin

Xe: =round (Mx* (x-xmin) +50);

end;

function Ye (y: integer): integer;

begin

Ye: =round (My* (-y+ymax) +50);

end;

function Xm (xe: integer): integer;

begin

Xm: =round ( (xe-50) /Mx+xmin);

end;

function Ym (ye: integer): integer;

begin

Ym: =round ( (50-ye) /My+ymax);

end;

function max (list: TStrings): integer;

var

i: byte;

begin

Result: = StrToInt (list [1]);

for i: = 2 to list. Count-1 do begin

if StrToInt (list [i]) > Result then

Result: = StrToInt (list [i]);

end;

end;

var

x0,y0: integer;

dx,dy: integer;

h,w: integer;

x,y,t: integer;

x1,x11,y1,y11: integer;

myFont, oldFont: TLogFont;

begin

x0: =0;

y0: =0;

dx: =50;

dy: =50;

h: =500;

w: =500;

xmin: =0;

xmax: =StringGrid1. RowCount-1;

ymin: =0;

ymax: =max (StringGrid1. Cols [3]);

My: = round (h/ymax);

Mx: = round (w/xmax);

// Шрифт перевернутого текста

// GetObject (Canvas. Font. Handle, SizeOf (myFont), @myFont);

with myFont do begin

lfheight: = 10;

lfwidth: = 10;

lfweight: = 10;

lfEscapement: = 900;

lfUnderline: = 0;

lfItalic: = 0;

lfStrikeOut: = 0;

lfCharset: = 1;

end;

with Tabl. Canvas do

begin

Pen. Width: =2;

Pen. Color: =clBlue;

x1: =50;

t: =3;

repeat

X11: =Xm (x1);

if X11 <> 0 then begin

MoveTo (x1,Ye (0));

LineTo (x1,Ye (0) +3);

TextOut (x1 - Mx-30 div 2,Ye (0) +3,StringGrid1. Cells [2,x11]);

// t: =t+10;

Brush. Color: = StrToInt (StringGrid1. Cells [1,X11]);

Rectangle (x1,ye (0),x1-Mx+8,ye (StrToInt (StringGrid1. Cells [3,X11])));

Brush. Color: = clBtnFace;

// Перевернутый текст

GetObject (Canvas. Font. Handle, SizeOf (oldFont), @oldFont);

SelectObject (Canvas. Handle, createfontindirect (myFont));

TextOut (x1 - round (Mx) div 2,Ye (0) - 10,StringGrid1. Cells [2,X11]);

SelectObject (Canvas. Handle, createfontindirect (oldFont));

end;

x1: =x1+Mx;

until (X11>=xmax);

y1: =30;

repeat

Y11: =Ym (y1);

if Y11 <> 0 then begin

MoveTo (Xe (0),Y1);

LineTo (Xe (0) +3,Y1);

TextOut (Xe (0),y1-3, IntToStr (y11));

end;

y1: =y1+My;

until (Y11<=ymin);

MoveTo (Xe (0),Ye (ymax));

LineTo (Xe (0),Ye (ymin));

MoveTo (Xe (xmin),Ye (0));

LineTo (Xe (xmax),Ye (0));

TextOut (Xe (xmax) - 25,Ye (0) +26, 'Разделы');

TextOut (Xe (0) +8,Ye (ymax) - 41,'Совпадений');

Pen. Width: = 1;

end;

end;

procedure TTabl. StringGrid1DrawCell (Sender: TObject; ACol, ARow: Integer;

Rect: TRect; State: TGridDrawState);

begin

if (ACol = 1) and (ARow <> 0) then begin

StringGrid1. Canvas. Brush. Color: = StrToInt (StringGrid1. Cells [ACol,ARow]);

StringGrid1. Canvas. FillRect (Rect);

StringGrid1. Cells [0,0]: =' №';

StringGrid1. Cells [1,0]: ='Цвет';

StringGrid1. Cells [2,0]: ='Раздел';

StringGrid1. Cells [3,0]: ='Количество слов';

end;

end;

procedure TTabl. Button1Click (Sender: TObject);

begin

Tabl. Hide;

FindGlobal. Show;

end;

procedure TTabl. Button2Click (Sender: TObject);

begin

FindGlobal. Hide;

Form2. Hide;

Tabl. Hide;

MainForm. Show;

end;

end.

Форма перегляду відео

unit Unit4;

interface

uses

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

Dialogs, Buttons, MPlayer, StdCtrls, ExtCtrls;

type

TForm4 = class (TForm)

MediaPlayer1: TMediaPlayer;

Image1: TImage;

SpeedButton1: TSpeedButton;

Label1: TLabel;

procedure SpeedButton1Click (Sender: TObject);

procedure FormShow (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

uses Unit2;

{$R *. dfm}

procedure TForm4. SpeedButton1Click (Sender: TObject);

begin

close;

MediaPlayer1. Stop;

end;

procedure TForm4. FormShow (Sender: TObject);

begin

Form2. Visible: =True;

MediaPlayer1. Display: = Form4;

MediaPlayer1. FileName: = '1\move. wmv';

MediaPlayer1. Open;

MediaPlayer1. DisplayRect: = Rect (20,40,954,550);

end;

end.

Форма сторінки автора

unit Unit6;

interface

uses

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

Dialogs, Buttons, ExtCtrls, StdCtrls, jpeg;

type

TForm6 = class (TForm)

Image1: TImage;

SpeedButton1: TSpeedButton;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Image2: TImage;

Label8: TLabel;

procedure SpeedButton1Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

uses Unit2;

{$R *. dfm}

procedure TForm6. SpeedButton1Click (Sender: TObject);

begin

form6. hide;

form2. Show;

end;

end.

Форма про автора

unit Unit2;

interface

uses

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

Dialogs, StdCtrls, jpeg, ExtCtrls;

type

TAuthorForm = class (TForm)

Image1: TImage;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Image2: TImage;

private

{ Private declarations }

public

{ Public declarations }

end;

var

AuthorForm: TAuthorForm;

implementation

{$R *. dfm}

end.

Додаток 4. Файли проекту