Find the unit

[Jon Jacobs]

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