uses ...ShellAPI;
...
private
...
    function GetSmallIcon(Path: String; IconIndex: Integer): hIcon;
...
---
implementation
...
function ThiStringTable.GetSmallIcon(Path: String; IconIndex: Integer): hIcon;
var Licon,sIcon:hIcon;
begin
    ExtractIconEx(PChar(Path),IconIndex,Licon,sIcon,1);
    Result:= hIcon(sIcon); 
end;
...
---
procedure ThiStringTableMT._work_doMT_LoadExtIcon;
...
   ico:= NewIcon;
   if _prop_ImgSize < 24 then ico.handle:= GetSmallIcon(fn,idx)
                         else ico.LoadFromExecutable(fn,idx);
...