Agregar ceros a la izquierda de un consecutivo

[look]

Empezado por ingabraham

hola,
tengo un campo consecutivo
1
2
3
...
necesito rellenarlos asi

000008
000009
000010
000011
...

Código Delphi [-]
  function Alinea(S: String; N: Integer): String;
begin
  Result:=StringOfChar('0',N-Length(S))+S;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
caption:=alinea('9',6)
end;