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));