Como llenar con espacion en blanco o con ceros una cadena?

[fidel]

Hola:

Para rellenar hasta 12 caracteres (con ceros delane)

entero := 345
cadenadoce := RightStr ( '000000000000' + IntToStr ( entero ) , 12 );

Para rellenar hasta 20 caracteres (con .... por detrás)

texto := 'Aragón'
cadenaveinte := LeftStr ( texto + '....................' , 20 );

Un saludo.