Zum Glück gibt es noch mehrere Foren

, da mir in diesem Forum keiner Helfen konnte

.
Hier die Lösung, falls auch andere mal dieses Problem haben

:
wenn anstelle von
varArray:
Array of Variant;
nur eine Variable vom Typ Variant definiert und dann mit VarArrayCreate das Array erstellt wird,
var A: Variant;
A :=
VarArrayCreate(0, 4, varVariant);
dann funktioniert es.