La première question qui me vient est : "Pourquoi faire ? "

Sinon, le code suivant fonctionne:



var
Vr: Variant;
begin
Vr := VarArrayCreate([0, 1], varOleStr);