Colocar zero a esquerda em Delphi

function RetZeroEsquerda(ZEROS:string;QUANT: integer):String;

var

   I,Tamanho: integer;

   aux: string;

begin

  aux:=zeros;

  Tamanho:=length(ZEROS);

  ZEROS:='';

    for I:=1 to quant-tamanho do

        ZEROS:=ZEROS+'0';

  aux:=zeros+aux;

  RetZeroEsquerda:=aux;

end;