Delphi - Rellenar a la izquierda

Hola, buenas tardes.

Ojala me ayuden, lo que necesito es lo sig.

tengo el sig. Valor '5' pero ahora lo quiero asi '00000005'
si el numero es '300' tendria que devolver asi '00000300'

Existe alguna funcion que me permita rellenar a la izquierda ?

De antemano Gracias.

ShowMessage(Format('%.8D',5));
El truco está en la función Format cuando usas un punto justo antes de la indicación de tamaño en el caso de los números enteros (la D) te rellena con ceros hasta completar los espacios.

Puedes utilizar esta función que imita a la función homónima de ORACLE:

function LPad(pCadena: string; pLong: word; pRelleno: string = ' '): string;
begin
{Inicialización}
result := pCadena;

while Length(result) < pLong do
result := pRelleno + result;

{Como el resultado podría tener más de "pLong" caracteres, lo recortamos.}
if Length(pCadena) <= pLong then
result := Copy(result, 1, pLong);

end;{LPad con 3 parámetros}

NOTA: Puedes modificar esta función para convertirla en RPad (rellenar por la derecha).

Saludos.