...
     // Adresse kopieren in neuen Datensatz
     // Ein variantes Array erstellen
     aField := VarArrayCreate([0,DataForm.Adressen.Fieldcount-1],VarVariant);

     // Datensatzwerte in Array einlesen
     for i := 0 to (DataForm.Adressen.Fieldcount-1) do
         begin
         aField[i] := DataForm.Adressen.fields[i].Value ;
         end;
     DataForm.Adressen.Insert;
     ...