Saludos
Tengo este codigo
Código Delphi
[-]
function rspace(Atext:string; Long:integer; Spac:char = ' '): String;
var
X:integer;
begin
Atext:=trim(Atext);
if long < 0 then
long:=0;
x:=long-Length(AText);
Result:=StringOfChar(Spac,X)+Atext;
end;
No estoy seguro si es lo que quieres