[[Al González]]

Hola. No sé si has considerado hacerlo desde Delphi, pero en tal caso yo usaría la función ghInc de GHF:

Código Delphi [-]
Uses
  GHFRTL;

...

Begin
  Folio := 'INV1008';
  Folio := ghInc (Folio);  // Folio ahora es 'INV1009'
  Folio := ghInc (Folio);  // Folio ahora es 'INV1010'

Puede que te den otras soluciones, adopta la que sea más viable o adecuada en tu caso.

Un cordial saludo.