[JOSEPE]

En Delphi 10 Seattle.
Saludos.

Código Delphi [-]
function TOleControl.GetIDispatchProp(Index: Integer): IDispatch;
var
  Temp: TVarData;
begin
  GetProperty(Index, Temp);
  Result := IDispatch(Temp.VDispatch);
  IDispatch(Temp.VDispatch) := nil;
end;