Delphi - Como poner a un String Ceros a la Izquierda??

Estoy formando un archivo plano en donde tengo que completar el nº de Cta.Cte. con ceros a la izquierda, pero estos nº tiene ´-´ en distintos lados, por ej.

5-005-5658 ó 041-2-253-522 ó 2533-5855

dejarlos de largo 19 llenando lo que falta con ceros a la izquierda, extiste algo????

Help!!!!!!

Prueba con lo siguiente:

function Justifica(const Numero: string): string;
var
i: integer;
begin
Result:= Format(´%19s´, [Numero]);
for i:= Length(Result)-Length(Numero) downto 1 do
if Result[i]= ´ ´ then
Result[i]:= ´0´;
end;

Saludos
Antonio M. Estévez