TCMSocketMessage = record
  Msg: Cardinal;
  Socket: TSocket;
  SelectEvent: Word;
  SelectError: Word;
  Result: Longint;
end;

struct TCMSocketMessage {
  unsigned Msg;
  TSocket Socket;
  Word SelectEvent;
  Word SelectError;
  Longint Result;
};