Fórum ainda nao acertei #190816

Se colocar no evento ´insert´ da table este procedimento sempre se repetirá o que não tem muito sentido.
procedure
var
copia:string;//se for
begin
table1.post;
table1.prior;
copia=table1campo.value;
table1.next;
table1.edit;
table1campo.value:=copia;
table1.post;
end;

Melhor colocar em um button a ser clicado quando é para ser apenas cópia.
procedure
var
copia:string;//se for
begin
table1.insert
table1.post;
table1.prior;
copia=table1campo.value;
table1.next;
table1.edit;
table1campo.value:=copia;
table1.post;
end;


Não testei mas creio ser por aí ou parecido. Tente que irá conseguir.
Abraço

Se voce quer valores dafault:

Você pode definir valores dafault ao criar os campos da tabela ou faze no código. Eu prefiro a 2ª opção, que me dá mais autonomia.

No evento AfterInsert da tabela faça

Campo1Nomedocampo.value:=valor;
Campo2Nomedocampo.value:=valor;

Se voce quer apenas o do ultimo registro voce pode pegar as informações do ultimo registro com uma query ou outra table e usar o mesmo princípio

No evento AfterInsert da tabela faça algo como:

table2.last;
Campo1Nomedocampo.value:=Query1Nomedocampo.value;

Acho que tem uma função que replica um registro, mas não sei qual é.