copiar de un registro a otro en la misma tabla

[Jorge Alonzo]

Se me olvidaba comentarles que consegui el siguiente codigo (aqui en el club) pero no se si haga lo que estoy buscando, pero de todos modos les agradecia que me ayuden.

procedure TForm1.Button2Click(Sender: TObject);

type
{Tipos para array dinámico de variants}
TRecuerda = array[0..0] of variant;
PRecuerda = ^TRecuerda;
var
Recuerda:PRecuerda;
n:integer;
Campos:integer;
begin
{Reservamos memoria para el array}
Campos:=Table1.FieldCount;
GetMem(Recuerda, Campos * SizeOf(variant));

{Vamos al ultimo registro}
Table1.Last;
{Recordamos los campos}
for n:=0 to Table1.FieldCount-1 do
begin
Recuerda^[n]:=Table1.Fields[n].AsVariant;
end;

{Añadimos un registro}
Table1.Append;
{Lo rellenamos}
for n:=0 to Table1.FieldCount-1 do
begin
Table1.Fields[n].AsVariant:=Recuerda^[n];
end;
{Lo grabamos}
Table1.Post;

{Liberamos memoria}
FreeMem(Recuerda, Campos * SizeOf(Variant));
end;