Função que insere Zeros à frente de uma string em Delphi
function StrZero(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;
StrZero := aux;
end;