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

     TOrlovClassForm.Create(Application);
     end;

     procedure TOrlovMainForm.miShowClassFormClick(Sender: TObject);
     begin
     OrlovClassForm.Show;
     end;

     procedure TOrlovMainForm.miHideClassFormClick(Sender: TObject);
     begin
     OrlovClassForm.Hide;
     end;

     procedure TOrlovMainForm.miCloseClassFormClick(Sender: TObject);
     begin
     OrlovClassForm.Close;
     end;

     procedure TOrlovMainForm.miDestroyClassFormClick(Sender: TObject);
     begin
     OrlovClassForm.Destroy;
     end;

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

     procedure TOrlovMainForm.miCreateFileFormClick(Sender: TObject);
     begin
     OrlovFileForm:=
     TOrlovFileForm.Create(Application);
     end;

     procedure TOrlovMainForm.miShowFileFormClick(Sender: TObject);
     begin
     OrlovFileForm.Show;
     end;

     procedure TOrlovMainForm.miHideFileFormClick(Sender: TObject);
     begin
     OrlovFileForm.Hide;
     end;

     procedure TOrlovMainForm.miCloseFileFormClick(Sender: TObject);
     begin
     OrlovFileForm.Close;
58