Hola, otra más para la diversidad...
Código:
function CerosAIzquierda(ANum, Cant: Integer): string;
var
Ceros: array[1..100] of char;
begin
FillChar(Ceros, SizeOf(Ceros), '0');
Result:= Copy(Ceros, 1 ,Cant - Length(IntToStr(ANum))) + IntToStr(ANum);
end;
Saludos.