[Investment]

Con un bucle puedes hacerlo sin problemas:

   while i < Numero_de_espacios do
  begin
	Cadena:= Cadena + ' ';
	i:=i+1
  end;