Сущность проектируемой автоматизированной системы

       begin

       form6.Visible:=true;

       end; 

       procedure TForm8.N12Click(Sender: TObject);

       begin

       form7.Visible:=true;

       end; 

       procedure TForm8.N4Click(Sender: TObject);

       begin

       form1.close;

       end; 

       procedure TForm8.N6Click(Sender: TObject);

       begin

        form5.Visible:=true;

       end; 

       procedure TForm8.N7Click(Sender: TObject);

       begin

       ShellExecute (0, nil, 'D:\Proect\SP1.doc' ,nil,nil, SW_SHOWNORMAL);

       end; 

       procedure TForm8.N8Click(Sender: TObject);

       begin

       ShellExecute (0, nil, 'D:\Proect\SP3.doc' ,nil,nil, SW_SHOWNORMAL);

       end; 

       procedure TForm8.N61Click(Sender: TObject);

       begin

        ShellExecute (0, nil, 'D:\Proect\SP5.doc' ,nil,nil, SW_SHOWNORMAL);

       end; 

       procedure TForm8.N5Click(Sender: TObject);

             var

         path: PAnsiChar; 

       begin

       //  Запуск руководства  пользователя

         path := PAnsiChar(ExtractFilePath(Application.ExeName) + 'Spr.chm');

         ShellExecute(handle, 'open', path, nil, nil, SW_SHOWNORMAL);

       end; 

       procedure TForm8.N13Click(Sender: TObject);

       begin

       ShellExecute (0, nil, 'D:\Proect\SP5.doc' ,nil,nil, SW_SHOWNORMAL);

       end; 

       end.