var
 oldApp : TApplication;

Function RunEdit (ConnDBt : TConnDB;
                 ParamsT : TParamsA;
                 ParamsDlgT : TParamsToDlg; App : TApplication):Boolean;
begin
 Application := App;
 Result := RunWin(ConnDBt, ParamsT, ParamsDlgT);
 Application.ProcessMessages; // дали ей самоуничтожиться (если ее не было, то это не помешает)
 Application := oldApp; // восстановили среду приложения библиотеки. После этого уже можно выгружать
end;

exports
 RunEdit name 'RunMDIChild';

begin
 OldApp:=Application;  // эта фишка обязательна для динамической выгрузки библиотеки.
 //т.е. нужно сохранить ссылку на родной Application библиотеки, чтобы ее потом можно было
 //динамически выгрузить.
end.

Function RunWin(ConnDBt : TConnDB;
                ParamsT : TParamsA;
                ParamsDlgT : TParamsToDlg) : Boolean;

implementation

uses AppUniverExp;

{$R *.DFM}

Function RunWin;
 var Win: TSecurityForm;
Begin
 result:=true; Win:=nil;
 Win := TSecurityForm.Create(Application,ConnDBt,ParamsT,ParamsDlgT);
 if Win <> nil then Win.ShowModal
 else begin
  MessageBox( 0 ,'Не найдена форма для редактирования таблицы','Ошибка',MB_ICONERROR);
  result:=false;
 end;
 if result then result := not Win.CancelFlag;
 If (Win <> Nil) Then Begin If Win.Visible Then Win.Close;
                            If Win <> Nil Then Win.Free; Win := Nil; End;
end;