[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