[[egostar]]

Hola petolansa

Yo use este código para incrementar un folio tal como lo estás haciendo tú.

Código Delphi [-]
Procedure TLector.SumaFolio;
var
  Folio: Integer;
  LineaSQL: String;
Begin
  Query1.Close;
  Query1.SQL.Clear;
  Query1.SQL.Add('select folio from folios');
  Query1.Open;
  Folio := Query1.Fields[0].AsInteger;
  lineaSQL := 'SET FOLIO = '+InttoStr(Folio);
  Query1.close;
  Query1.sql.clear;
  Query1.sql.add('UPDATE FOLIOS');
  Query1.sql.add(lineaSQL);
  Query1.execsql;
  Query1.Close;
End;

Espero te sirva.

Salud OS