DirectX Version auslesen

[WojTec]

In getdxverunit_123.pas under XE6 in line:

pcDirectXVersionLetter := vari.VOleStr[0];

is:

Code:

[dcc32 Error] E2010 Incompatible types: 'Char' and 'Variant'

When:

Code:

pcDirectXVersionLetter := string(vari.VOleStr)[1]

then compiles, but raises EVariantInvalidOpError.
Call like below:

Code:

var
  dvDXVersion: Cardinal;
  szDXVersion: string;
begin
  GetDXVersion(dvDXVersion, szDXVersion);

How to make it working?