Dicas Delphi - 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;