2 Dimensionales OleVariant Array erstellen?

[neolithos]

Delphi-Quellcode:

var vCells : Variant;  

...
  vCells := VarArrayCreate([0, fData.Count, 0, 6], varVariant);
...
  vCells[0, 0] := 'Vorgang';
  vCells[0, 1] := 'Bezeichnung';
  vCells[0, 2] := 'Zeit [' + fData.TE + ']';
  vCells[0, 3] := 'Direkter Nachfolger';
  vCells[0, 4] := 'Rangwerte Nachf. [' + fData.TE + ']';
  vCells[0, 5] := 'Rangwert [' + fData.TE + ']';
  vCells[0, 6] := 'Rang';

das funktioniert bei mir einwandtfrei!