Código Delphi [-]
 
 procedure FindFiles(StartDir, FileMask: string; recursively: boolean; var FilesList: TStringList);
  const
    //MASK_ALL_FILES = '*.*';
    MASK_ALL_FILES = '*.*';
    CHAR_POINT = '.';
  var
    SR: TSearchRec;
    DirList: TStringList;
    IsFound: Boolean;
    i: integer;
    ext: string;
  begin
    if (StartDir[length(StartDir)] <> '\') then begin
      StartDir := StartDir + '\';
    end;
    // Crear la lista de ficheos en el directorio StartDir (no directorios!)
    IsFound := FindFirst(StartDir + FileMask, faAnyFile - faDirectory, SR) = 0;
    // MIentras encuentre
    while IsFound do  begin
      //FilesList.Add(StartDir + SR.Name);
      ext:= AnsiLowercase(copy(SR.Name,length(SR.Name)-2,3));
      if (ext = 'jpg') or (ext = 'bmp') then
      begin
           FilesList.Add(StartDir + SR.Name);
      end;
      IsFound := FindNext(SR) = 0;
    end;
    FindClose(SR);
    // Recursivo?
    if (recursively) then begin
      // Build a list of subdirectories
      DirList := TStringList.Create;
      // proteccion
      try
        IsFound := FindFirst(StartDir + MASK_ALL_FILES, faAnyFile, SR) = 0;
        while IsFound do
        begin
          if ((SR.Attr and faDirectory) <> 0) and
            (SR.Name[1] <> CHAR_POINT) then
            DirList.Add(StartDir + SR.Name);
          IsFound := FindNext(SR) = 0;
        end;
        FindClose(SR);
        // Scan the list of subdirectories
        for i := 0 to DirList.Count - 1 do
          FindFiles(DirList[i], FileMask, recursively, FilesList);
      finally
        DirList.Free;
      end;
    end;
  end;
 
procedure TForm1.WMDEVICECHANGE(var Msg: TMessage);
var
  Letra: Char;
  n:integer;
  //añadido 11 SEpt
  SR: TSearchRec;
  j,k:integer;
  nombre_fichero,ext:String;
  StartDir, FileMask: string;
  DirList: TStringList;
  IsFound: Boolean;
  imjpg : TJPEGImage;
  imbmp  : TBitmap;
  pos:Pchar;
  nombre:String;
  
const   CHAR_POINT = '.';
begin
  if Msg.WParam = DBT_DEVICEARRIVAL  then
  begin
       for Letra:= 'C' to 'Z' do
       begin
            if (GetDriveType(Pchar(Letra+':\')) = DRIVE_REMOVABLE) or (GetDriveType(Pchar(Letra+':\')) = DRIVE_CDROM) then
            begin
                 FindFiles(Letra+':\','*.*',true,lista_archivos);
 
 
                 for j:=0 to lista_archivos.Count-1 do
                 begin
                      for k:=0 to lista_aux.Count-1 do
                      begin
                           ext:= AnsiLowercase(copy(lista_archivos.Strings[j],length(lista_archivos.Strings[j])-2,3));
                           if (ext='bmp') then
                           begin
                              pos:=StrRScan(lista_archivos.FieldAddress(lista_archivos.Strings[j]),'\');
                              pos:=pos+1;
                              while(pos <'p') do
                              begin
                                nombre:=copy(pos,length(pos),1);
                                pos:=pos+1;
                              end;
                              if pos='p' then
                              begin
                                nombre:=copy(pos,length(pos),1);
                              end;
                              imbmp := TBitmap.Create;
                              Width := imjpg.Width;
                              Height := imjpg.Height;
                              Canvas.Draw(0,0,imjpg);
                              imbmp.LoadFromFile(nombre);
                              imbmp.SaveToFile('C:\FOTOS\'+nombre);
                              Free;
                           end
                           else if(ext='jpg') then
                           begin
                              pos:=StrRScan(lista_archivos.FieldAddress(lista_archivos.Strings[j]),'\');
                              pos:=pos+1;
                              while(pos<'j') do
                              begin
                                nombre:=copy(pos,length(pos),1);
                                pos:=pos+1;
                              end;
                              if pos='j' then
                              begin
                                imbmp := TBitmap.Create;
                                Width := imjpg.Width;
                                Height := imjpg.Height;
                                Canvas.Draw(0,0,imjpg);
                                imbmp.LoadFromFile(nombre+'bmp');
                                imbmp.SaveToFile('C:\FOTOS\'+nombre);
                                Free;
                              end;
 
                      end;

                 end;

                 FindFiles('C:\FOTOS\','*.*',true,lista_archivos);
              //  FindFiles('C:\FOTOS\','*.*',true,lista_aux);
                 
                 Memo1.Lines.Assign(lista_archivos);
                 Memo1.Update;
 
               if Memo1.Lines.Count>0 then
               begin
                   i:=0;
                   RellenarFotos(i);
                   cantidades.Clear;
                   for n:=0 to Memo1.Lines.Count-1 do
                   begin
                      cantidades.Add('0');
                   end;
               end;
            end;
       end;
  end;
  inherited;
end;

Código Delphi [-]
var
  Form1: TForm1;
  lista_archivos: TStringList;
  i: integer;
  cantidades: TStringList;
  offset: integer =0;
implementation
{$R *.dfm}
uses Unit2;
const foto_en_blanco = 'C:\foto_en_blanco.bmp';
const
  DBT_DEVICEARRIVAL = $8000;
 
procedure RellenarFotos(f: integer); forward;
procedure RellenarFotos(f: integer);
begin
     //si posicion es < q lineas-> cargamos en Image1 el directory metido de la posicion de FLB1
       if fthen
       begin
          Form1.Image1.Picture.LoadFromFile(Form1.Memo1.Lines.Strings[f]);
       end
       else
       begin
         Form1.Image1.Picture.LoadFromFile(foto_en_blanco);
       end;
       if f+1then
       begin
          Form1.Image2.Picture.LoadFromFile(Form1.Memo1.Lines.Strings[f+1]);
       end
       else
       begin
          Form1.Image2.Picture.LoadFromFile(foto_en_blanco);
       end;
       if f+2then
       begin
         Form1.Image3.Picture.LoadFromFile(Form1.Memo1.Lines.Strings[f+2]);
       end
       else
       begin
         Form1.Image3.Picture.LoadFromFile(foto_en_blanco);
       end;
       if f+3then
       begin
         Form1.Image4.Picture.LoadFromFile(Form1.Memo1.Lines.Strings[f+3]);
       end
       else
       begin
         Form1.Image4.Picture.LoadFromFile(foto_en_blanco);
       end;
       if f+4then
       begin
         Form1.Image5.Picture.LoadFromFile(Form1.Memo1.Lines.Strings[f+4]);
       end
       else
       begin
         Form1.Image5.Picture.LoadFromFile(foto_en_blanco);
       end;
       if f+5then
       begin
          Form1.Image6.Picture.LoadFromFile(Form1.Memo1.Lines.Strings[f+5]);
       end
       else
       begin
         Form1.Image6.Picture.LoadFromFile(foto_en_blanco);
       end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
  cantidades:= TStringList.Create; //crea el StringList 'cantidades'
 lista_archivos:=TStringList.Create;
 //añadido 11 Sept
 lista_aux:=TStringList.Create;
end;