[Pablo Carlos]

Mira este código, quizas sea lo que necesites

Código Delphi [-]
var l_id_Datos : LongInt;
 begin
  frmBuscarDatos := TfrmBuscarDatos.Create(Application);
  try
   frmBuscarDatos.ShowModal;
     l_id_Datos := dmQuerys.qBuscarDatos.FieldByName('DatosPersonales_id').AsInteger;
     dmTablas.tblDatosPersonales.Locate('DatosPersonales_id', l_id_Datos,[]);
     tblFacturacion.Insert;
     tblFacturacionFAC_id_DatosPersonales.AsInteger :=
     dmTablas.tblDatosPersonalesDatosPersonales_id.AsInteger;
  finally
   frmBuscarDatos.Free;
  end;
 end

Saludos