Si lo que necesitas es escribir un número con tantos ceros a la izquierda como sean necesarios para alcanzar determinada longitud quizá te sirva esta función:
Código:
function LPad(N: Integer; Count: Integer): String;
begin
Result := Format('%.*d', [Count, N]);
end;
Por ejemplo:
LPad(84, 5) --> '00084'
LPad(84, 7) --> '0000084';
Para otros casos en que la cadena rellenar no sea un número me parece, y espero estar equivocado, que no hay una función de tipo Pad en Delphi pero podrías construirla tu mismo usando un ciclo
for para anexar los ceros:
Código:
for I := 1 to Count do
S := '0' + S;
o bien, si tu versión de Delphi la trae, usar la función DupeString de la unidad StrUtils:
Código:
S := DupeString('0', Count) + S;
// Saludos