Fixed multiple files scanning. Fixed Select directory dialog.

umain.pas

@@ -660,7 +660,7 @@ begin
     FreeTIM(TIM);
     Exit;
   end;
-  //Writeln('X=',aCol, '; Y=',aRow);
+
   DrawClutCell(TIM, cbbCLUT.ItemIndex, @grdClut, ACol, ARow);
 
   FreeTIM(TIM);
@@ -796,6 +796,8 @@ begin
     ScanThreads.Last.Priority := tpNormal;
     ScanThreads.Last.OnTerminate := @ScanFinished;
 
+    ScanThreads.Pack;
+
     if StartedScans < GetLogicalCpuCount then
     begin
       BeforeScan(ScanThreads.Last.FileLength);