TWSANetworkEvents = record
  lNetworkEvents: LongInt;
  iErrorCode: Array[0..fd_max_eventS-1] of Integer;
  end;