Campos de un IBDataset a otro

[noe]

Gracias ya lo solucione de la siguiente manera:

IBDataset2.insert;
IBDataset2.Fields.FieldByName('CONSECUTIVO').Value:=IBDataset1.Fields.FieldByName('CLAVEPERSONA').Va lue;
IBDataset2.Fields.FieldByName('NOMBRE').Value:=IBDataset1.Fields.FieldByName('NOMBRE').Value;
IBDataset2.Fields.FieldByName('APELLIDOS').Value:=IBDataset1.Fields.FieldByName('APELLIDOS').Value;
IBDataset2.Post;

De todos modos alguna sugerencia para hacerlo de otro modo, se los agradezco mucho.
saludos a todos!