Datensatz in selbe Tabelle kopieren

[Luca Haas]

Hi Leute, ich bin dabei einen Knopf zu programmieren mit dem ich den aktuellen Datensatz in dieselbe Tabelle kopiere. Der einzige Unterschied soll sein, dass die Felder für den Namen, MA-Nr, etc.. leer bleiben sollen.
Ich versuche das ganze mit

Delphi-Quellcode:

procedure TAufgabenMusterForm.Button1Click(Sender: TObject);
begin
  AufgabenMusterPosQuery.Open();
  AufgabenMusterPosQuery.Append();
  AufgabenMusterPosQuery.FieldByName('PositionsNr').AsInteger := AufgabenMusterPosQuery.FieldByName('PositionsNr').AsInteger;
  AufgabenMusterPosQuery.FieldByName('Name').AsString := AufgabenMusterPosQuery.FieldByName('Name').AsString;
  AufgabenMusterPosQuery.FieldByName('Prioritäten').AsInteger := AufgabenMusterPosQuery.FieldByName('Prioritäten').AsInteger;
  AufgabenMusterPosQuery.FieldByName('MitarbeiterGruppe').AsString := AufgabenMusterPosQuery.FieldByName('MitarbeiterGruppe').AsString;
  AufgabenMusterPosQuery.FieldByName('Datum').AsDateTime := AufgabenMusterPosQuery.FieldByName('Datum').AsDateTime;
  AufgabenMusterPosQuery.FieldByName('Erledigt').Value := AufgabenMusterPosQuery.FieldByName('Erledigt').Value;
  AufgabenMusterPosQuery.FieldByName('ErledigtDatum').AsDateTime := AufgabenMusterPosQuery.FieldByName('ErledigtDatum').AsDateTime;
  AufgabenMusterPosQuery.FieldByName('ErledigtMANr').AsInteger := AufgabenMusterPosQuery.FieldByName('ErledigtMANr').AsInteger;
  AufgabenMusterPosQuery.Post();
end;

allerdings erhalte ich so nur einen leeren Datensatz.
Kann mir jemand hierbei helfen ?