帮我把c++译成delphi代码

Question

谁帮我把这段译成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;

Answer 1

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