insert que no funciona correctamente

[marcosmendozaa]

hola...aqui con otra duda... ya que tengo un insert que no se ejecuta correctamente... tengo los dbedits conectados a su data souerce...i el datasource esta conectado a un query, y en este query esta activada su propiedad requestlive para poder scribir en esos dbedit....... el problema es cuando ejecuto el codigo de insert, que es el siguiente:

Código SQL [-]
with dm1.q_monitor do
  begin
    Close;
    SQL.Clear;
    SQL.Add('insert into monitores values (:inventari, :seri,:marc, :tam, rotec,:idequipo)');
    ParamByName('inventari').Asstring:=dbedit17.text;
    ParamByName('seri').Asstring:=dbedit18.Text;
    ParamByName('marc').Asstring:=dbedit19.Text;
    ParamByName('tam').Asstring:=dbedit20.Text;
    ParamByName('protec').Asstring:=dbcombobox3.Text;
    paramByName('idequipo').Asstring:=dbedit4.Text;
      ExecSQL;
    end; //with

el problema es que ejecuta a medias ese codigo... porque en la tabla solo me guarda el "idequipo" que es una llave foranea... y no entiendo porque solo e guarda esa llave foranea y todos los demas campos no =S...alguien me puede ayudar!?? de antemano gracias!

[marcosmendozaa]

tambien en el mismo boton q hago el insert anterior q no me funciona, hago varios insert y en todos guardo la misma llaver foranea (id_equipo)..... en el siguiente codigo lo tengo de manera distinta al de arriba pero me sucede lo mismo! en la tabla no me guarda los valores mas q el del id_equipo

Código SQL [-]
with dm1.q_cpu do
  begin
    Close;
    SQL.Clear;
    sql.Add('select * from cpu where id_equipo=:idequipo');
    parambyname('idequipo').AsInteger:=strtoint(dbedit4.Text);
    open;
    if isempty then
      insert
    else
      edit;

    fieldbyname('no_inventario').AsString:=dbedit5.Text;
    fieldByName('no_serie').Asstring:=dbedit6.Text;
    fieldByName('nombre_equipo').Asstring:=dbedit7.Text;
    fieldByName('marca').Asstring:=dbedit8.Text;
    fieldByName('modelo').Asstring:=dbedit9.Text;
    fieldByName('memoria').Asstring:=dbedit10.Text;
    fieldByName('disco_duro').Asstring:=dbedit11.Text;
    fieldByName('nodo_datos').Asstring:=dbedit12.Text;
    fieldByName('no_puerto').Asstring:=dbedit13.Text;
    fieldByName('no_switch').Asstring:=dbedit14.Text;
    fieldByName('ip').Asstring:=dbedit15.Text;
    fieldByName('internet').Asstring:=dbcombobox1.Text;
    fieldByName('unidad_cd').Asstring:=dbcombobox2.Text;
    fieldByName('inventario_bocinas').Asstring:=dbedit16.Text;
    fieldByName('id_equipo').Asstring:=dbedit4.Text;

    post;

    end; //with