Código
var
zeros, cont: Integer;
numero: String;
begin
zeros := qtd - length(IntToStr(num));
cont := 0;
numero:= IntToStr(num);
while cont < zeros do
begin
numero := '0'+numero;
cont := cont+1;
end;
Result := numero;
end;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009