Codigo de Factura

[camiz]

Hola amigos nuevamente aca en el foro buscando ayuda.

tengo un problemita quiero generar un codigo de 6 dijitos que sea autoincremental de esta manera.

000001
000002
000003
000004
000005
000006
000007
000008
000009
000010
asi sucecivamente

Quiero que compruebe con el numero que esta guardado en la base de datos y cree uno nuevo sin repetirse.
tengo este codigo pero me muestra solo un digito y quiero que sea de 6

Código Delphi [-]
begin
with frmConeccion.MostrarNumFactura do
begin
Active := True;
CodFactura := FloatToStr(FieldByName('CODFACTURA').AsInteger +1);
Active := False;
end;