[marcoszorrilla]

La función FillSpacesLeft, la he creado yo mismo, la añado para más claridad.

Código Delphi [-]
 Function FillSpacesLeft(cVar:String;nLen:Integer):String;
 begin
 Result:=StringOfChar(' ',nLen - Length(cVar))+cVar;
 end;

Un Saludo.