Copiar un registro de una tabla a otra.

[Caronte]

Hola, necesitaba copiar un registro completo desde una tabla a otra y no he encontrado una funcion o procedure que lo haga ¿Existe?

Si no es así, lo que yo he hecho (y funciona) es el código que pongo a continuación:

Código Delphi [-]
//copia un registro (previamente debe haberse filtrado la tabla1).//

procedure TForm1.Button1Click(Sender: TObject);
VAR
F: INTEGER;
begin
    Table2.Append;
    FOR F:=0 TO TABLE1.FieldCount-1 DO
          Table2.Fields.Fields[F].Value:=Table1.Fields.Fields[F].Value;
    Table2.Post;
end;