[(VIH)Lestat]

este es el error que me muestra:

un mensaje de error que esta en ingles y lo que me dice es que el campo 'Field 'DNI_ALUMNO' must be have a value' o sea que el campo debe tener un valor

`pero ese valor se lo estoy dando por medio del query y su parametro ... checalo.. este es el codigo del boton "guardar de mi formulario"

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:TDateTime;
 	statu:string;
 	imagen:string;
 	edoc:string;
 	carrera:string;
 	sem:integer;
 	cert:integer;
 	fot:integer;
 	act:integer;
 	cur:integer;
 
 
 
 begin
 	   //Se almacena los datos de las cajas de texto en las variables
 	   //para evitar perdidas de informacion
 
  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:=strtodate(fecha.Text);
  statu:=status.Text;
  imagen:=DLgpicture.FileName;
  sem:=strtoint(semestre.Text);
  cert:=strtoint(certificado.ValueChecked);
  act:=strtoint(acta.ValueChecked);
  fot:=strtoint(fotos.ValueChecked);
  cur:=strtoint(curp.ValueChecked);
 
 
 		//Se insertan los valores en las tablas
 
 
 		ModuloSID.IBQuery1.Params[0].AsString:=dni_a;
 		ModuloSID.IBQuery1.Params[1].AsString:=apellidopa;
 		ModuloSID.IBQuery1.Params[2].AsString:=apellidoma;
 		ModuloSID.IBQuery1.Params[3].AsString:=Nombre;
 		ModuloSID.IBQuery1.Params[4].AsString:=Sex;
 		ModuloSID.IBQuery1.Params[5].AsString:=Dir;
 		ModuloSID.IBQuery1.Params[6].AsString:=Local;
 		ModuloSID.IBQuery1.Params[7].AsString:=ciud;
 		ModuloSID.IBQuery1.Params[8].AsString:=Tele;
 		ModuloSID.IBQuery1.Params[9].AsDate:=fecha_ing;
 		ModuloSID.IBQuery1.Params[10].AsString:=statu;
 		MOduloSID.IBQuery1.Params[11].AsString:=edoc;
 		ModuloSID.IBQuery1.Params[12].AsBlob:=imagen;
 
 		//Se ejecuta el Query 1 para almacenar datos
 
 
 		ModuloSID.IBQuery1.ExecSQL;
 
 
 		ModuloSID.IBQuery2.Params[0].AsString:=dni_a;
 		ModuloSID.IBQuery2.Params[1].AsString:=carrera;
 
 		//Se ejecuta el Query 2 para almacenar datos
 
 
 		ModuloSID.IBQuery2.ExecSQL;
 
 
 		ModuloSID.IBQuery3.Params[0].AsString:=dni_a;
 		ModuloSID.IBQuery3.Params[1].AsInteger:=sem;
 
 	   //SE ejecuta el Query 3 para almacenar los datos
 
 
 		ModuloSID.IBQuery3.ExecSQL;
 
 
 		ModuloSID.IBQuery4.Params[0].AsString:=dni_a;
 		ModuloSID.IBQuery4.Params[1].AsInteger:=cert;
 		ModuloSID.IBQuery4.Params[2].AsInteger:=act;
 		ModuloSID.IBQuery4.Params[3].AsInteger:=fot;
 		ModuloSID.IBQuery4.Params[4].AsInteger:=cur;
 
 		//Se ejecuta el Query 4 para almacenar datos
 
 		ModuloSid.IBQuery4.ExecSQL;
 
 		//Se abren y cierran las tablas para actualizar sus valores
 
 		ModuloSID.IBTalumnos.Close;
 		ModuloSID.IBTalumnos.Open;
 
 		ModuloSID.IBTsemestre.Close;
 		ModuloSID.IBTsemestre.Open;
 
 		MOduloSID.IBTalum_doc.Close;
 		ModuloSID.IBTalum_doc.Open;
 
 
 		ModuloSID.IBTalumno_carrera.Open;
 		ModuloSID.IBTalumno_carrera.Close;
 
 
 
 end;

Podrias decirme que esta malllll........... y me fastidie yyno consigo buscar el error... no se a que se debe ... ya llevo dias encontrando y cambiando de componentes pero nada....