Necesito ayuda

[magnu9]

Tengo un problema con el siguiente codigo resulta que guardo lo que quiero en mi tabla de facturas al procesar, pero en dada ocaciones me dice el siguiente error '..... raised exception class EConvertError with message "" is not a valid integer value'...

Código Delphi [-]
procedure TUniFactura.BitBtn4Click(Sender: TObject);
var numfact, i : integer;
    usuar, condic, tipfact,  FechaVence, iv: String;
    FPagoOK : Boolean;

begin
   FPagoOK:= true;
   If FPagoOk then
   begin
     usuar:=FormPrincipal.Label3.Caption;
     tipfact:= UniFactura.ComboBox1.Text;
     condic:= Label24.Caption;
     ShortDateFormat := 'dd/mm/yyyy';
     FechaVence := DateToStr(IncDay(now,(StrToInt(Label24.Caption))));
     Label15.Caption:= FechaVence;
     querFactura.Close;
     querFactura.SQL.Text := 'select top 1 numfac, codcli, fecfac, codusu, tipfac, condicion, codart, fecvenc from factura order by numfac desc';
     querFactura.Open;
     If querFactura.RecordCount = 0 then NumFact:=1
     else NumFact := querFactura.Fields[0].AsInteger+1;
     querFactura.Close;
  //Iniciar la Transaccion
     ADOConnection1.BeginTrans;
     try
   // Insertar en la tabla de Factura
        querFactura.SQL.Text := 'Insert Into Factura (numfac, codcli, fecfac, codusu, tipfac, condicion, codart, fecvenc) Values( '+IntToStr(NumFact)+','+Edit1.Text+','+QuotedStr(Fecha)
        +','+QuotedStr(usuar)+','+QuotedStr(tipfact)+','+QuotedStr(condic)+','+IntToStr(codigoArtic)+','+Quo  tedStr(FechaVence)+')';
    

        For i := 1 to SgFact.RowCount-1 do
         begin
           querArticulo.SQL.Text := 'Update Articulo Set cexart = cexart - '+SGFact.Cells[2,i]+' Where '+
                             'Codart = '+QuotedStr(SGFact.Cells[0,i]);
           querArticulo.ExecSQL;
         end;
   //Completa la Transaccion
           ADOConnection1.CommitTrans;

   finally
   close;
   end;
   end;
end;