Высокоуровневые методы информатики и программирования. Сивохин А.В - 79 стр.

       procedure miExitFileFormClick(Sender: TObject);
       procedure miCreateGraphicFormClick(Sender: TObject);
       procedure miShowGraphicFormClick(Sender: TObject);
       procedure miHideGraphicFormClick(Sender: TObject);
       procedure miCloseGraphicFormClick(Sender: TObject);
       procedure miDestroyGraphicFormClick(Sender: TObject);
       procedure miExitGraphicFormClick(Sender: TObject);
       procedure miCreateTableFormClick(Sender: TObject);
       procedure miShowTableFormClick(Sender: TObject);
       procedure miHideTableFormClick(Sender: TObject);
       procedure miCloseTableFormClick(Sender: TObject);
       procedure miDestroyTableFormClick(Sender: TObject);
       procedure miExitTableFormClick(Sender: TObject);
       procedure miAboutClick(Sender: TObject);
       procedure miNoteBookClick(Sender: TObject);
      private
       { Private declarations }
      public
       { Public declarations }
      end;

     var
      OrlovMainForm: TOrlovMainForm;

     implementation

     {$R *.dfm}

     procedure TOrlovMainForm.miCreateArrayFormClick(Sender: TObject);
     begin
     OrlovArrayForm:=
     TOrlovArrayForm.Create(Application);
     end;

     procedure TOrlovMainForm.miShowArrayFormClick(Sender: TObject);
     begin
      OrlovArrayForm.Show;

     end;

     procedure TOrlovMainForm.miHideArrayFormClick(Sender: TObject);
     begin
       OrlovArrayForm.Hide;
     end;

     procedure TOrlovMainForm.miCloseArrayFormClick(Sender: TObject);
     begin
56