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

        OrlovArrayForm.Close;
     end;

     procedure TOrlovMainForm.miDestroyArrayFormClick(Sender: TObject);
     begin
       OrlovArrayForm.Destroy;
     end;

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

     procedure TOrlovMainForm.miCreateRecordFormClick(Sender: TObject);
     begin
     OrlovRecordForm:=
     TOrlovRecordForm.Create(Application);
     end;

     procedure TOrlovMainForm.miShowRecordFormClick(Sender: TObject);
     begin
     OrlovRecordForm.Show;
     end;

     procedure TOrlovMainForm.miHideRecordFormClick(Sender: TObject);
     begin
     OrlovRecordForm.Hide;
     end;

     procedure TOrlovMainForm.miCloseRecordFormClick(Sender: TObject);
     begin
     OrlovRecordForm.Close;
     end;

     procedure TOrlovMainForm.miDestroyRecordFormClick(Sender: TObject);
     begin
     OrlovRecordForm.Destroy;
     end;

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

     procedure TOrlovMainForm.miCreateClassFormClick(Sender: TObject);
     begin
     OrlovClassForm:=
57