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;
function TOleControl.GetIDispatchProp(Index: Integer): IDispatch; var Temp: TVarData; begin GetProperty(Index, Temp); Result := IDispatch(Temp.VDispatch); IDispatch(Temp.VDispatch) := nil; end;