TComPort中的线程的应用(100分)

出现如下错误 "raise exception class EthreadEroor 句柄无效。(6)"
我想可能是一下代码中的 FEventThread := TCommEventThread.Create(FHandle, FMonitorEvents)出了问题：
procedure TCustomComm.Open;
begin
CheckOpen;

CreateHandle;

if Enabled then
begin
FEventThread := TCommEventThread.Create(FHandle, FMonitorEvents);
FEventThread.OnSignal := HandleCommEvent;

UpdateCommTimeouts;

UpdateDataControlBlock;

if not SetupComm(FHandle, FReadBufSize, FWriteBufSize) then
RaiseCommError(sSetupCommErr, GetLastError);
end;
end;
但是我对Tcomport 又不熟悉，不知道该怎样改，希望得到高人指点。