TCMLookupComplete = record
  Msg: Cardinal;
  LookupHandle: THandle;
  AsyncBufLen: Word;
  AsyncError: Word;
  Result: Longint;
end;

struct TCMLookupComplete {
  unsigned Msg;
  THandle LookupHandle;
  Word AsyncBufLen;
  Word AsyncError;
  Longint Result;
};