Fórum Criei uma funcao para clonar registro(gostaria de comp.) #163094

var
i,z:integer;

begin
Table2.Insert; ou Table2.Append;

for i:=1 to Table1.FieldCount do
begin
z:=i-1;
Table2.FieldList[z].value:=Table1.FieldList[z].value;
end;

Table2.Post;

end;

Espero que isso ajude alguem no futuro.