Função que adiciona zeros a Esquerda

{Função para Adicionar Zeros a Esquerda}Function StrZeros(Texto: String; Qtde: Integer): String;var i, Tam: integer; Aux: String;begin Aux := ''; Tam := Length(Texto); for i := Tam to (Qtde - 1) do Aux := Aux + '0'; StrZeros := Aux + Texto;end;