Fixed TIM displaying;

Fixed "Out of Memory" for Directory Scan;
Optional CLUT viewer;
Other fixes.

units/uScanResult.pas

@@ -52,7 +52,8 @@ end;
 
 destructor TScanResult.Destroy;
 begin
-
+  SetLength(pTims, 0);
+  pTims := nil;
   inherited;
 end;