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

     end;

     procedure TOrlovMainForm.miShowTableFormClick(Sender: TObject);
     begin
     OrlovTableForm.Show;
     end;

     procedure TOrlovMainForm.miHideTableFormClick(Sender: TObject);
     begin
     OrlovTableForm.Hide;
     end;

     procedure TOrlovMainForm.miCloseTableFormClick(Sender: TObject);
     begin
     OrlovTableForm.Close;
     end;

     procedure TOrlovMainForm.miDestroyTableFormClick(Sender: TObject);
     begin
     OrlovTableForm.Destroy;
     end;

     procedure TOrlovMainForm.miExitTableFormClick(Sender: TObject);
     begin
       Application.Terminate;
     end;

     procedure TOrlovMainForm.miAboutClick(Sender: TObject);
     begin
       OrlovAboutForm.Show;
     end;

     procedure TOrlovMainForm.miNoteBookClick(Sender: TObject);
     begin
       Application.HelpFile := 'Документы\\BarykinaNoteBook.hlp';
       Application.HelpCommand(HELP_CONTENTS, 0);
     end;

     procedure TOrlovMainForm.FormActivate(Sender: TObject);
     begin
      OrlovMainForm.OnActivate:= nil;
      AppPath:= ExtractFilePath(Application.ExeName);
     end;

     procedure TOrlovMainForm.miOrlovZapFormClick(Sender: TObject);
     begin

60