ALmacenar Un Campo En 3 tablas diferentes

[(VIH)Lestat]

Para ser mas especifico aqui les pongo el codigo que utilizo para almacenar informacion en las tablas antes mencionadas... espero puedan encontrar el error que me aqueja....todo este codigo lo tengo puesto para un boton..

procedure TIngresar_alum.BitBtn3Click(Sender: TObject);
 
 
 var dni_a:string;
 	apellidopa:string;
 	apellidoma:string;
 	nombre:string;
 	sex:string;
 	dir:string;
 	local:string;
 	ciud:string;
 	tele:string;
 	fecha_ing:variant;
 	statu:string;
 	imagen:variant;
 	edoc:string;
 	carrera:string;
 	sem:integer;
 	cert:integer;
 	fot:integer;
 	act:integer;
 	cur:integer;
 
 
 
 begin
 
  dni_a:=matricula.Text;
  apellidopa:=apaterno.Text;
  apellidoma:=amaterno.Text;
  nombre:=nombres.Text;
  sex:=sexo.Text;
  dir:=direccion.Text;
  local:=localidad.Text;
  ciud:=municipio.Text;
  tele:=telefono.Text;
  edoc:=edocivil.Text;
  carrera:=DBLcarrera.KeyValue;
  fecha_ing:=fecha.Text;
  statu:=status.Text;
 
  sem:=strtoint(semestre.Text);
  cert:=strtoint(certificado.ValueChecked);
  act:=strtoint(acta.ValueChecked);
  fot:=strtoint(fotos.ValueChecked);
  cur:=strtoint(curp.ValueChecked);
 
 
 
 //Se ponen en modo Editar las Tablas para empezar a recibir datos
 
 		ModuloSID.IBTalumnos.Edit;
 		ModuloSID.IBTalumno_carrera.Edit;
 		ModuloSID.IBTsemestre.Edit;
 		ModuloSID.IBTalum_doc.Edit;
 
 
 
 
 
 //Se captura la informacion directamente de las cajas de Texto
 
 
 		ModuloSID.IBTalumnos.FieldByName('dni').AsString:=dni_a;
 		ModuloSID.IBTalumnos.FieldByName('apellido_pa').AsString:=apellidopa;
 		ModuloSID.IBTalumnos.FieldByName('apellido_ma').AsString:=apellidoma;
 		ModuloSID.IBTalumnos.FieldByName('nombre').AsString:=Nombre;
 		ModuloSID.IBTalumnos.FieldByName('sexo').AsString:=Sex;
 		ModuloSID.IBTalumnos.FieldByName('direccion').AsString:=Dir;
 		ModuloSID.IBTalumnos.FieldByName('localidad').AsString:=Local;
 		ModuloSID.IBTalumnos.FieldByName('ciudad').AsString:=ciud;
 		ModuloSID.IBTalumnos.FieldByName('telefono').AsString:=Tele;
 		ModuloSID.IBTalumnos.FieldByName('fecha_ingreso').Value:=fecha_ing;
 		ModuloSID.IBTalumnos.FieldByName('edo_civil').AsString:=edoc;
 		MOduloSID.IBTalumnos.FieldByName('status').AsString:=statu;
 		
 		ModuloSID.IBTalumnos.Post;
 
 		ModuloSID.IBTalumno_carrera.FieldByName('dni_alumno').AsString:=dni_a;
 		ModuloSID.IBTalumno_carrera.FieldByName('dni_carrera').AsString:=carrera;
 		ModuloSID.IBTalumno_carrera.Post;
 
 		ModuloSID.IBTsemestre.FieldByName('dni_alumno').AsString:=dni_a;
 		ModuloSID.IBTsemestre.FieldByName('semestre').AsInteger:=sem;
 		ModuloSID.IBTsemestre.Post;
 
 
 		ModuloSID.IBTalum_doc.FieldByName('dni_alumno').AsString:=dni_a;
 		ModuloSID.IBTalum_doc.FieldByName('certificado').AsInteger:=cert;
 		ModuloSID.IBTalum_doc.FieldByName('acta').AsInteger:=act;
 		ModuloSID.IBTalum_doc.FieldByName('fotos').AsInteger:=fot;
 		ModuloSID.IBTalum_doc.FieldByName('curp').AsInteger:=cur;
 		ModuloSID.IBTalum_doc.Post;

como pueden ver estoy utilizando un Modulo de datos llamado "ModuloSID" en donde almaceno todos los componentes no visuales de mi BD... espero que me puedan ayudar...
ahh y otra cosa tengo declarado variables para almacenar la informacion de los EDITS y luego pasarselas a mis tablas ... estas variables "SI" almacenan la informacion porque ya le hice pruebas y si me la retiene.. el problema esta en las clausulas POST SUPONGO!!!!