[dec]

Hola,

Gracias por responder JOSEPE. Es curioso, porque, el código de Delphi 10 no es el mismo que en Delphi XE2 (que se supone todavía es erróneo) pero también es distinto a la solución propuesta en el artículo enlazado:

Empezado por Código en Vcl.OleCtrls.pas de Delphi XE2

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

Empezado por Solución propuesta en el artículo enlazado

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

¿Alguien se anima con otra versión de Delphi? ¿Y qué hay de la diferencia entre el código propuesto como solución en el artículo y el código que el compañero muestra y se encuentra en Delphi 10?

Gracias de nuevo a todos.