还是关于mscomm做到dll中的问题！急！急！急！急！急！

procedure TForm1.scanport;
VAR
i,j:INTEGER;
sz:array of integer;
begin
j:=0;
setlength(sz,8);
for i:=1 to 9 do
begin
  if MSComm1.portopen=True then MSComm1.PortOpen :=false;
      MSComm1.CommPort :=i   ;
try
  MSComm1.PortOpen:=true;
  MSComm1.PortOpen :=false;
  showmessage('com'+inttostr(I)+'打开');
  sz[j]:=I;
  inc(j);
except
end;end;
我把这段代码放在exe 中执行没有问题，但在dll 中反应太迟钝！，请指教！！