[[Lepe]]

Hombre, está sacado de trucomania, que esperabas .
Así queda mejor, nos quitamos punteros y reserva de memoria.

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
 
type 
{Tipos para array dinámico de variants}
TRecuerda = array of variant;
var 
Recuerda:TRecuerda;
n:integer;
Campos:integer;
begin 
{Reservamos memoria para el array}
  Campos:=Table1.FieldCount;
  SetLength(Recuerda,Campos);
 
{Vamos al ultimo registro}
Table1.Last;
{Recordamos los campos}
for n:=0 to Table1.FieldCount-1 do 
begin 
Recuerda[n]:=Table1.Fields[n].AsVariant;

{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;
// no tenemos que liberar la memoria, al ser una variable local, se libera
// al salir
  end;  

end;

[saludos] y más [/saludos]