在调用DLL中的窗体调用WebServer接口，却提示"尚未调用CoInitialize"(0分)

DLL是如下编写：
uses
SysUtils,
Forms,
Messages,
Variants,
Windows,
Classes,
FLogin in 'FLogin.pas' {LoginFrm},
IDMLogin1 in 'IDMLogin1.pas';
{$R *.res}
procedure RunDLL(p: TApplication; Scr: TScreen) stdcall;
var
aForm: TLoginFrm;
begin
Screen := Scr;
aForm := TLoginFrm.Create(p);
try
aForm.ShowModal;
finally
FreeAndNil(aForm);
end;
end;
exports
RunDLL;

begin
end.

采用动态加载的调用方法
请问该如何编写