帮小弟我把c++译成delphi代码

帮我把c++译成delphi代码
谁帮我把这段译成delphi代码
BSTR option = SysAllocString(L":vout-filter=deinterlace :deinterlace-mode=mid");
BSTR name = SysAllocString(L"vlc show");

VARIANT vOption;
vOption.vt = VT_BSTR; 
VariantInit( &vOption );
vOption.bstrVal = option;

VARIANT vName;
vName.vt = VT_BSTR;
VariantInit( &vName );
vName.bstrVal = name;
[解决办法]
vOption : Varint;
vName : Variant;

vOption  := ':vout-filter=deinterlace :deinterlace-mode=mid';
vName := 'vlc show';