Actualizar registro.. ayuda

[Rofocale]

Código Delphi [-]
  icodex := strtoint(txtcodigo.Text);

        with dmDatos.qryventarea do begin
         Close;
        SQL.Clear;
        SQL.Add('SELECT * FROM ventasareas');
        open;
        if(not Eof)then begin
        if icodex <> FieldByName('codigo').value then
        begin
     // dmDatos.cdsventarea.Active := false;
        Close;
        SQL.Clear;
        SQL.Add('INSERT INTO ventasareas (areaventa, orden, articulo, codigo, descrip, cantidad, precio, cliente, categoria, fecha)');
        SQL.Add('VALUES(:areaventa, rden, :articulo, :codigo, :descrip, :cantidad, recio, :cliente, :categoria, :fecha)');
            params.ParamByName('areaventa').Value := sAreaVenta;
             if(iCliente < 1) then
               params.ParamByName('orden').Value := NULL
            else
               params.ParamByName('orden').Value := iorden;

            params.ParamByName('articulo').Value := txtclave.Text;
            params.ParamByName('codigo').Value := txtcodigo.Text;
            params.ParamByName('descrip').Value := txtdescripc.Text;
            params.ParamByName('cantidad').Value := txtcantidad.Text;
            params.ParamByName('precio').Value := txtprecio.Text;

            if(iCliente < 1) then
               params.ParamByName('cliente').Value := NULL
            else
               params.ParamByName('cliente').Value := IntToStr(iCliente);

            if(Length(txtcategoria.Text) > 0) then
               params.ParamByName('categoria').Value := txtcategoria.Text
            else
               params.ParamByName('categoria').Value := NULL;


            params.ParamByName('fecha').Value := FormatDateTime('dd/mm/yyyy',Date);
            ExecSQL;
            Close;
        end;
        end
        else begin
          Close;
            SQL.Clear;
            SQL.Add('UPDATE ventasareas SET areaventa = :areaventa,orden = rden,');
            SQL.Add('articulo = :articulo,codigo = :codigo,descripcion = :descripcion,');
            SQL.Add('cantidad = :cantidad,precio = recio,cliente = :cliente,');
            SQL.Add('categoria = :categoria,fecha = :fecha WHERE codigo = :codigo');

            params.ParamByName('areaventa').Value := sAreaventa;
            params.ParamByName('orden').Value := iorden;
            params.ParamByName('articulo').Value := txtclave.Text;
            params.ParamByName('codigo').Value := txtcodigo.Text;
            params.ParamByName('descripcion').Value := txtdescripc.Text;
           params.ParamByName('cantidad').Value := txtcantidad.Text;
            params.ParamByName('precio').Value := txtprecio.Text;
            params.ParamByName('cliente').Value :=IntToStr(iCliente);
            params.ParamByName('categoria').Value := txtcategoria.Text;
            params.ParamByName('fecha').Value := FormatDateTime('dd/mm/yyyy',Date);
        end;
        end;

buenas estaba haciendo este codigo para insertar articulos con un boton agregar desde una lista, lo que quiero es que si escribes en un edit el codigo y este sea igual al ya ingresado anteriormente en un grid lo actualize en ves de ponerlo en la sgte linea y si no es el mismo codigo agregarlo en la siguiente linea..

bueno el codigo no hace nada cuando apreto el boton agregar..
que estoy haciendo mal, alguna sugerencia ?