Kann mir jemand das hier übersetzen?

[Markus]

Hallo,

dies ist ein kurzer Auszug aus einem C++ Quelltext (das ganze hier)

Code:

        VARIANT var; //die hier
        VariantInit(&var); //die hier         
        V_I4(&var) = 0; //die hier
        V_VT(&var) = VT_I4; //die hier 
        
        hr = pUser->Put(CComBSTR("pwdLastSet"), var); //hier evtl. das "CComBSTR"
        hr = pUser->SetInfo();

        VariantClear(&var); //die hier
        pUser->Release();

Ich kenne mich mit C++ leider nicht sehr gut aus. Könnte mir jemand daher diesen Quellcode nach Delphi übersetzen (nur die ersten 4 Zeilen (bis zum Absatz)).