Archivo Texto (Length)

[jovehe]

hola que tal amigos del foro

la verdad este hilo me lo contestaron hace tiempo pero tengo un pequeño detalle como puedo hacer que la funcion que se nombra en este hilo me ponga los espacios del lado derecho y no solo del lado izquierdo?
ya que yo agrego lineas a un Tmemo de esta manera
Código:
Function Palabra(Cad : String; LarCad : Integer;Const Lado : Byte = 1) : String; begin While Length(Cad) < LarCad Do Case Lado of 1: Cad:=' '+Cad; 2: Cad:=Cad+' '; end; Result:=Cad; end; memo1.lines.add (Palabra(Tabla1.FieldByName('ImporteMoneda').asfloat),16);

el caso es que esto hace que me ponga el importe _________100.00 con espacios en la izquierda solo que tengo un problema quiero poner espacios a la derecha pero de un campo string quiero poner un nombre y que quede de tamaño 40 no importando si el nombre esta muy corto pero quiero justificarlo con espacios a la derecha no a la izquierda.

Alguien podria auxiliarme?

espero que si
de antemano gracias por su atencion y espero su respuesta

SALUDOS

[jovehe]

perdon como que el codigo no quedo muy claro

 
 
Function Palabra(Cad : String; LarCad : Integer;Const Lado : Byte = 1) : String; begin 
 
While Length(Cad) < LarCad Do 
Case Lado of 
1: Cad:='  '+Cad;
2: Cad:=Cad+'  ';
 end; 
Result:=Cad; 
end; 
 
//lineas que agregan las lineas al memo
memo1.lines.add (Palabra(Tabla1.FieldByName('ImporteMoneda').asfloat),16);

espero ahora si le entiendan