关于TScreen::TDataModule没有互斥，在Datasnap中引出的BUG

Datasnap中的TDSServerModule是继承于TDataModule，TDSServerModule实例的Destory，没有做互斥

destructor TDSServerModuleBase.Destroy;begin  //TDataModule  if OldCreateOrder then DoDestroy;  if Assigned(RemoveDataModule) then    RemoveDataModule(Self);  //TComponent  Destroying;  RemoveFreeNotifications;  DestroyComponents;  // TPersistent  RemoveFixups(Self);  //TProviderDataModule  CleanProviders;end;

 RemoveDataModule(Self);

解决方法：

对全局的Classes.RemoveDataModule的函数重新赋值自己写的RemoveDataModuleFix，并在函数内互斥

procedure TDataModuleFix.RemoveDataModuleFix(DataModule: TDataModule);begin  GlobalNameSpace.BeginWrite;  try    g_SaveRemoveDataModule(DataModule);  finally    GlobalNameSpace.EndWrite;  end;end;