unit Imfmain; interface uses SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms, Dialogs, Menus; type TForm1 = class(TForm) MainMenu: TMainMenu; File1: TMenuItem; New1: TMenuItem; Open1: TMenuItem; Save1: TMenuItem; SaveAs1: TMenuItem; N1: TMenuItem; Exit1: TMenuItem; Rooms1: TMenuItem; Objects1: TMenuItem; Doors1: TMenuItem; Variables1: TMenuItem; Properties1: TMenuItem; Attributes1: TMenuItem; Options1: TMenuItem; Help1: TMenuItem; Functions1: TMenuItem; Grammar1: TMenuItem; private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} end.