procedure TfrmMain.VirtCOMArrival(Sender: TObject);
var
 WaitTick :cardinal;
 SaveCursor :TCursor;
 Idx :integer;
begin
  Idx := FindPortDevice(ComponentVirtCOM.DevName, ptNone); // проверяем, есть ли новый порт в списке обрабатываемых
  if(Idx<>-1)then
   with HandPorts[Idx] do
    try
     if Assigned(sspComPort)and not sspComPort.Connected then // sspComPort :TComPort;
      begin
       SaveCursor := Screen.Cursor;
       try
        Screen.Cursor := crHourGlass;

// задержка перед попыткой открытия порта
        WaitTick := GetTickCount+18*MSecsPerSec; // задержка в 18 сек.
        while GetTickCount<WaitTick do
         begin
          Application.ProcessMessages;
          sleep(100); // обрабатываем остальные порты в другом потоке
         end;
// попытка открытия нового порта
        sspComPort.Open;
        sspPortType := ptSerial;
       finally
        Screen.Cursor := SaveCursor;
       end;
    except
     on E:Exception do
      Application.MessageBox(PChar(Format(meOpenPortErrFmt,[sspDevStr,E.Message])),
                            PChar(mWarning), MB_ICONWARNING+MB_OK);
    end;
end;