TImageEnMView.LoadSnapshot

TImageEnMView.FillFromDirectory

with ImageEnMViewMain do
    begin
        //  Save snapshot of current thumbnails
        if Length(CurrentDirectory) > 0 then
          try
            SaveSnapshot(CurrentDirectory + '\SNAPSHOT.FILE');
          except end;
        Clear;

        //  Load thumbnails snapshot from new directory      
        if FileExists(NewDirectory + '\SNAPSHOT.FILE') then
          begin
            LoadSnapshot(NewDirectory + '\SNAPSHOT.FILE');
            Update;
          end;

        //  Reload thumbnails from images (in case directory contents has changed)
        try
          LockPaint;
          Clear;
          FillFromDirectory(NewDirectory);
        finally
          UnLockPaint;
          Paint;
        end;
   end;