[kapullok_2006]

Hola,he probado los trucos de la página y me dan errores,pues las funciones
que usan en el borrado de directorios,no las encuentra mi delphi 6.
Mi problema está este código:

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
var
directorio_medio2,directorio_fecha:string;
 DirInfo: TSearchRec;
 r : Integer;


begin

       r := FindFirst('C:\MEDIOS\MEDIO2\*.*', FaAnyfile, DirInfo);
             while r = 0 do  begin
               if ((DirInfo.Attr and FaDirectory <> FaDirectory) and
                   (DirInfo.Attr and FaVolumeId <> FaVolumeID)) then
                 if DeleteFile(pChar('C:\MEDIOS\MEDIO2\' + DirInfo.Name))
                    = false then
                  {Si no puede borrar el fichero}
                  ShowMessage('Unable to delete : C:\MEDIOS\MEDIO2\' +
                              DirInfo.Name);
              r := FindNext(DirInfo);
            end;
            SysUtils.FindClose(DirInfo);
             //AQUI FALLA,NO BORRA DIRECTORIO MEDIOS
             if RemoveDir('C:\MEDIOS\MEDIO2\') = false then

                {Si no puedes borrar el directorio}
               ShowMessage('Unable to delete dirctory : C:\MEDIOS\MEDIO2');



     

       directorio_medio2:='C:\MEDIOS\MEDIO2\';
       directorio_fecha:=IntToStr(Trunc(Now*24*3600*60));
       //C:\MEDIOS\MEDIO2\4234232
       directorio_medio2:=directorio_medio2+directorio_fecha;

       //Crea la ruta anterior
       ForceDirectories(directorio_medio2);

       //traspasa el fichero de un lado para otro
      //Obtendría por Ejemplo:C:\MEDIOS\MEDIO2\4234232\foto_a_imprimir.bmp CopyFile(PChar('C:\FOTO_PARA_IMPRIMIR\foto_a_imprimir.bmp'),PChar(directorio_medio2+'\'+'foto_a_impr  imir.bmp'),false);

end;

Quiero que cada vez que pincho un boton,me lo borre entero,incluido sus
subdirectorios y archivos.
El problema es que no borra C:\MEDIOS,por lo que me crea el directorio_fecha con el fichero bmp en C:\MEDIOS\MEDIO2, cada vez que pincho boton.

¿ALguna opcion,que funcione para este ejemplo?
Estoy desesperado.Espero que me sujiráis algo.
Saludos.