Fehler: "Ungültiger Varianttyp" - nur unter Windows 2000

[uwi1961]

Beim Nutzen der Procedure PasteCurrent() (nach vorherigem Aufruf von CopyCurrent)
kommt unter Windows 2000 die Fehlermeldung "Ungültiger Varianttyp", unter Windows XP funktioniert
die Funktion...
Was ist falsch

Delphi-Quellcode:

var
  aField : Variant;
  Feldzahl : Integer;

implementation

procedure CopyCurrent();
var z : Integer;
begin
  DM.T_PC_copy_.Edit;
  Feldzahl := DM.T_PC_copy_.FieldCount;
  aField:= VarArrayCreate([0,Feldzahl-1],VarVariant);
  for z:=0 to (Feldzahl-1) do aField[z]:=DM.T_PC_copy_.fields[z].Value;
end;

procedure PasteCurrent();
var z : Integer;
begin
  DM.T_PC_deleted_.Append;
  for z:=0 to (Feldzahl-1) do
  begin
    // Feldinhalte einfügen //
    DM.T_PC_deleted_.fields[z].Value:=aField[z];
  end;
  DM.T_PC_deleted_.Post;
end;