Adicionando zeros a esquerda

Function StrZero(const AValue: integer; ALength: integer): string;
var
base : string;
begin
base := '%.'+IntToStr(ALength)+'d';
result := Format(base,[AValue]);
end;