lo que podes hacer, si tenes que copiar la totalidad de los campo, es contar los campos que tenes en la tabla y en el select incrementar el codigo con la cantidad total de registros.
Código:
query1.sql.clear;
query1.sql.add('SELECT COUNT(*) AS cantidad FROM tabla');
query1.Active := true;
cantidad := query1.FieldByName('cantidad').AsInteger;
query1.sql.clear;
query1.sql.add('INSERT INTO tabla SELECT codigo+'+InttoStr(cantidad)+' AS codigo, campo2 FROM tabla');
query1.ExecSQL;