Agregar ceros a la izquierda a una variable integer.

[wull]

Hola a todos veran mi problema es el siguiente:
Tengo un programa conectado a una BD, y en esta tengo un campo llamado folio (de tipo numérico, entero largo) el cual es consecutivo; no lo puse autonumerico porque no pude hacer que me apreciera con el siguiente formato '00001' solo me aparecía '1', pensé que me seria más fácil hacerlo directamente en Delphi declarando una variable 'integer' e irla incrementando en 1 cada vez que se agregara un nuevo registro.
La cuestión es que la función para rellenar con ceros a la izquierda no funciona para 'integer' yo queria hacer algo como esto

Código Delphi [-]
variable:=variable+1;

pero siendo variable de tipo 'string' no puedo incrementar su valor.
Alguien tiene alguna idea de como hacerlo, ya sea desde Acces (ya que no pude cambiar el formato desde ahí) o bien en Delphi... espero no causar muchas molestias, gracias de antemano.