Rellenar con 0....

[roman]

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:

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:

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:

S := DupeString('0', Count) + S;

// Saludos