DELPHI开发的webservice服务器，运行一段时间之后，程序耗时6-7秒

重启一下就好了，看了一下代码，这里边只是基类自带的datamodule创建代码，除了一个临界区好像没有其他的了，不知道什么原因，有大哥指导一下吗

DELPHI开发的webservice服务，有点小众，建议用php、python、C#、java等语言开发web service

type

IWSYXHis =interface(IInvokable)

TDataWSYXHis = class(TdataModule,IWSYXHis)

procedure TDataWSYXHisCreateInstance(out obj: TObject);
begin
  obj := TDataWSYXHis.Create(nil);
end;

***************************************************************************************************

//下边是上边的create函数调用的基类函数

constructor TDataModule.Create(AOwner: TComponent);
begin
  GlobalNameSpace.BeginWrite;
  try
    CreateNew(AOwner);
    if (ClassType <> TDataModule) and not (csDesigning in ComponentState) then
    begin
      if not InitInheritedComponent(Self, TDataModule) then
        raise EResNotFound.CreateFmt(SResNotFound, [ClassName]);
      if OldCreateOrder then DoCreate;
    end;
  finally
    GlobalNameSpace.EndWrite;
  end;
end;