🚀 go-pugleaf

The following code works on a remote server, but not on another copy.

procedure TForm1.Button2Click(Sender: TObject);
var
  ProgID: string;
  W: WideString;
  P: PWideChar;
  Result: TGUID;
  H: HResult;
begin
  ProgID := 'CacheObject.Factory';
  W := WideString(ProgID);
  P := PWideChar(W);
  H := CLSIDFromProgID(P, Result);
  OleCheck(H);
end;

I can trace through the code on the remote system and it works fine, but I cannot find where CacheObject is defined.

I copy all the source code to another machine, and it compiles fine, but H := CLSIDFromProgID(P, Result); returns an error value in H.

I need a strategy to track down where CacheObject is defined. Except for this string, it does not appear in find in files, all files in project. There is a TLib, but it is not defined there.

Thanks,

Jon