A ver si te sirve este truco de Trucomania:
Código Delphi
[-]
procedure TForm1.Button2Click(Sender: TObject);
type
TRecuerda = array[0..0] of variant;
PRecuerda = ^TRecuerda;
var
Recuerda:PRecuerda;
n:integer;
Campos:integer;
begin
Campos:=Table1.FieldCount;
GetMem(Recuerda, Campos * SizeOf(variant));
Table1.Last;
for n:=0 to Table1.FieldCount-1 do
begin
Recuerda^[n]:=Table1.Fields[n].AsVariant;
end;
Table1.Append;
for n:=0 to Table1.FieldCount-1 do
begin
Table1.Fields[n].AsVariant:=Recuerda^[n];
end;
Table1.Post;
FreeMem(Recuerda, Campos * SizeOf(Variant));
end;
Un Saludo.