No me guarda el fichero en el directorio que deseo

[kapullok_2006]

Hola, tengo este código:

Código Delphi [-]
function BuscaUltimo(u: Char; cadena: string): integer;
var n: integer;
begin
     Result:= 0;
     n:= 1;
     //hará la comparación,mientras le índice 'n'
     //sea < q long 'cadena'
     while n <= length(cadena) do
     begin
     //en el caso de q haya un caracter repetido,se devolverá
     //la última posición donde se encuentra dicho carácter.
     //Ejemplo:'\'
          if cadena[n] = u then Result:= n;
          Inc(n);
     end;
end;
//---Esto de abajo programado en un procedimiento
 //GUARDAMOS EN LA CARPETA C:\MEDIOS\MEDIO2\
       //LA FOTO CON EL Nº DE COPIAS A IMPRIMIR
       directorio_medio2:='C:\MEDIOS\MEDIO2\'; //ésta ya está creada
       directorio_fecha:=IntToStr(Trunc(Now*24*3600*60));
       directorio_medio2:=directorio_medio2+directorio_fecha+'\';
       
//pos es un entero que encuentra el último '\'
        pos:=BuscaUltimo('\','C:\FOTO_PARA_IMPRIMIR\foto_a_imprimir.bmp');

//consigo foto_a_imprimir.bmp        nombre_fichero:=Copy('C:\FOTO_PARA_IMPRIMIR\foto_a_imprimir.bmp',pos+1,length('C:\FOTO_PARA_IMPRIMIR  \foto_a_imprimir.bmp')-pos);

//supuestamente tendría por //ejemplo:C:\MEDIOS\MEDIO2\12742\foto_a_imprimir.bmp
        directorio_medio2:=nombre_fichero;

No me crea el directorio_fecha, y por tanto no está el fichero bmp.
Alguna otra idea?.He probado con concat,pero no me sale nada.
Por favor,si sabes de alguna idea que hayas probado y funcione,
te diré que gracias.
Saludos.