Datensatz kopieren - Primärschlüssel will nicht

[Overburn]

Hallo!
Ich hab folgendes Problem mir meiner kleinen Anwendung:
Und zwar möchte ich gerne einen Datensatz innerhalb einer Tabelle kopieren. Habe mich auch an die Anlietung aus der Library gehalten (Link).
Das siehr bei mir so aus:

Delphi-Quellcode:

PROCEDURE DuplicateCurrentRecord(aDataSet: TDataSet);
VAR
  Data: ARRAY OF variant;
  aRecord: ARRAY OF TVarRec;
  i: integer;
  max: integer;
  anzahl: integer;
BEGIN
  max := aDataSet.fields.count - 1;
  SetLength(arecord, max + 1);
  SetLength(data, max + 1);

  FOR i := 0 TO max DO BEGIN
    arecord[i].VType := vtVariant;
    arecord[i].VVariant := @data[i];
  END;

 FOR i := 0 TO max DO
    Data[i] := aDataSet.fields[i].value;
  aDataSet.Append;
  aDataSet.SetFields(aRecord);

END;

Aufgerufen wird das ganze wie folgt:

Delphi-Quellcode:

PROCEDURE TLagerForm.Button1Click(Sender: TObject);
VAR
  anzahl: integer;
BEGIN
  DuplicateCurrentRecord(Lagerquery);
  Lagerquery.Post
END;

Habe die Anleitung aus der Library genaustens befolgt, habe auch schon versucht, die Anzahl der Datensätze auslesen zu lassen und dann diesen Wert (erhöht um 1) dem Primärschlüssel zuordnen zu lassen. Das hat auch nicht funktioniert. Genausowenig hab ich durch googlen etwas gefunden.
Wißt ihr einen Lösung des Problems?
MfG,
Overburn