[luisreg]

Hola amigos del club delphi

Tengo un problema de actualizacion de registros con la sentencia update que la realizo desde un query, el query lo llamo desde un datamodule para actualizar un campo llamado "DiasCred" que son lo dias de credito de la tabla Cliente.
El problema surge al modificar los dias de credito desde un combobox y ejecuto la accion desde un boton llamado "guardar".

Al ejecutar en tiempo de ejecucion me envia un error de excepcion de la BDE mas o menos asi:
Type mismatch in expression.'. Process stopped.

Pero por más que le busco no se cual sea mi error.

Este es el codigo para explicarme mejor dentro del boton:

procedure TfrmModificaCtes.guardaClick(Sender: TObject);
var
  diacred: integer; // variable para guardar los dias de credito
begin
  diacred:=0;
         // con este case al seleccionar el item del combobox "creditodia"
         // le paso a la variable diacred los dias de credito  
         case creditodia.ItemIndex of
          -1:  dcred:=0;
           0:  dcred:=0;
           1:  dcred:=8;
           2:  dcred:=10;
           3:  dcred:=15;
           4:  dcred:=21;
           5:  dcred:=30;
          end;

          // aqui mando llamar el query para actualizar el cambio
          with DMRegla.qryActualiza do
          begin
            SQL.Clear;
            SQL.Add('update Cliente set Diascred=: param1');
            SQL.Add('where id_cliente=: param2');

            Params[0].AsInteger:=dcred;
            Params[1].AsInteger:=StrToInt(numcte.Text);

            ExecSQL;
     
            MessageDlg('Los cambios fueron guardados !!', mtInformation,[mbOK],0);
          end;
end;

Agraceria su ayuda, plis.