Листинг 11. Текст файла проекта Lab5.dpr

program Lab5;

uses
Forms,
MainUnit in 'MainUnit.pas' {MainForm};

{$R *.RES}

begin
Applicacion.Initialize;
Application.CreateForm(TMainForm, MainForm);
Application.Run;
end.

Листинг 12. Текст главного модуля MainUnit.pas

unit MainUnit;

Interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls;

const { Здесь указывается каталог с лабораторными работами }
Root = 'H:\Work\Delphi\';

type
TMainForm = class (TForm)
MainMenu: TMainMenu;
Lab11: TMenuItem;
Lab21: TMenuItem;
Lab31: TMenuItem;
Lab41: TMenuItem;
Lab51: TMenuItem;
ItemExit: TMenuItem;
Lab1dpr1: TMenuItem;
S2: TMenuItem;
MainUnitpas1: TMenuItem;
N3: TMenuItem;
Lab1exe1: TMenuItem;
Lab1dpr2: TMenuItem;
N4: TMenuItem;
MainUnitpas2: TMenuItem;
N5: TMenuItem;
Lab1exe2: TMenuItem;
Lab1dpr3: TMenuItem;
N6: TMenuItem;
MainUnitpas3: TMenuItem;
N7: TMenuItem;
Lab1exe3: TMenuItem;
Lab1dpr4: TMenuItem;
N8: TMenuItem;
MainUnitpas1: TMenuItem;
N9: TMenuItem;
Lab1exe4: TMenuItem;
Lab1dpr5: TMenuItem;
N10: TMenuItem;
MainUnitpas5: TMenuItem;
N11: TMenuItem;
Lab1exe5: TMenuItem;
Inputpas1: TMenuItem;
ListInputpas1: TMenuItem;
GridInputpas1: TMenuItem;
Memo: TMemo;
N12: TMenuItem;
ItemOpen: TMenuItem;
N14: TMenuItem;
ItemExecute: TMenuItem;
OpenFileDialog: TOpenDialog;
ExecuteFileDialog: TOpenDialog;
procedure ItemExitClick (Sender: TObject);
procedure ItemOpenClick (Sender: TObject);
procedure ItemExecuteClick (Sender: TObject);
procedure OpenFileClick (Sender: TObject);
procedure ExecuteFileClick (Sender: TObject);
private
procedure OpenFlle(FileName: string); // Загрузить содержимое текстового файла
procedure ExecuteFile(FileName: string); // Запутстить выполняемый файл
end;

var
MainFom: TMainForm;