Delphi - Espacios en blanco

Alguien sabe si existe alguna funcion o procedimiento para agregarle un número especifico de espacios en blanco a un string.

Gracias.

Por ahi tenia guardada esta pequeña función:

function cadena(c:char;i:integer):string;
//Por Ejemplo: si c='X' e i=5 el resultado es: 'XXXXX'
var
num:integer;
begin
result:='';
for num:=1 to i do
result:=result + c;
end;

Te devuelve la cadena con los espacios o caracteres que tu quieras y nada mas concatenas el resultado a tu string... espero que te sirva, saludos!...