In script is there a way to move a record from one table to another without doing it field by field in the record

As an example :

for j in select Table1 do

   let i: = (create Table2)

   [now instead of this:

     i.Column1 := j.Column1;

     i.Column2 := j.Column2;

    ...

     i.ColumnLast := j.ColumnLast;

    }

    {something like

         i: = j  (doesn't work type mismatch)

         -OR-

        i.* = j.*

     }

end