EscapeCommFunction(FComHandle, CLRDTR);
  EscapeCommFunction(FComHandle, CLRRTS);  
  CheckError('InitPort.EscapeCommFunction(CLRRTS)');

  EscapeCommFunction(FComHandle, SETDTR);  
  CheckError('InitPort.EscapeCommFunction(SETDTR)');

  for i := 0 to 3000 div 50 do
  begin
    if FComHandle = INVALID_HANDLE_VALUE
    then Exit;

    dwMask := 0;
    GetCommModemStatus(FComHandle, dwMask);
    CheckError('InitPort.GetCommModemStatus');

    Result := dwMask and (MS_CTS_ON or MS_DSR_ON) <> 0;
    if Result
    then Break;

    Sleep(50);
  end;