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;