[jhonny]

La función que propuse quedo reducida a esto, gracias a marcos:

Código Delphi [-]
 
type
   TOrientacion = (toLeft, toRight);
 
Function PadString(cVar :String; Caracter :Char; nLen:Integer; Orientacion :TOrientacion):String;
begin
  if Orientacion = toLeft then
    Result:=StringOfChar(Caracter, nLen - Length(cVar))+cVar
  else
    Result:=cVar+StringOfChar(Caracter, nLen - Length(cVar));
end;

Y se puede usar asi, por ejemplo:

Código Delphi [-]
 
ShowMessage(PadString('12345', '0', 10, toLeft));
ShowMessage(PadString('12345', '0', 10, toRight));