COM + Variant Arrays + Error

Hej

Jeg har det her COM objeck skrevet i C++ som jeg gerne vil kalde fra Delphi. Functionen ser således ud i det importerede type library:

function SetPumpCharCoefficients(const bstrPumpID: WideString; avAij:OleVariant; avBij: OleVariant; rQmin: Double; rQmax: Double): Integer;

avAij og avBij er 2d variant arrays of double:

Jeg kalder funktionen på følgende måde:

  GM3APCoefVariant := VarArrayCreate([0, 5, 0, 5], varDouble);
  GM3BPCoefVariant := VarArrayCreate([0, 5, 0, 5], varDouble);

for i:=0 to 100 do
  s:=YRpmp1.SetPumpCharCoefficients('Test',
                                      GM3APCoefVariant,
                                      GM3BPCoefVariant,
                                      5.0,
                                      10.0);

Der sker ingen processering af data i COM objektet, dvs det er bare properties der bliver sat.

Efter 4-6 gange i løkken får jeg en "The stub received bad data". Hvad er problemet?

MVH
Justin