Hola
Gracias.. ya me funciono... utilice lo sgte:
Código Delphi
[-]
Datos.AQ_Select.Close;
Datos.AQ_Select.SQL.Clear;
Datos.AQ_Select.SQL.Add('Select Max(Tar_CodigoBarra)+1 From Tarjeta');
Datos.AQ_Select.Open;
sFol.Text := IntToStr(Datos.AQ_Select.Fields[0].AsInteger);
Salu2
