[artzub]

Код:

var
objEn : IUnknown;
IEnum : IEnumVariant;
ObjEnum : OleVariant;
Fetched : Cardinal;

.....

objEn := Profile.DestPoints._NewEnum;
OleCheck(objEn.QueryInterface(IEnumVariant, IEnum));

while Succeeded(IEnum.Next(1, ObjEnum, Fetched)) do
begin
    if Fetched = 0 then
      Break;
    if ObjEnum.UID = ini.ReadString(idFirm, 'ClientID' + tempStr, '') then
    begin
        Query.DestPoint := ObjEnum;
        break;
    end;
  //В ObjEnum очередной DestPoint
end;