Всё замечательно!
Только непонятно, как переключать Files, Dirs и All.
Так удобнее http://forum.hiasm.net/forum_serv.php?q=56&id=4270
P.S.
Если точка Ext имеет соединение, но строка пуста, программа падает.
procedure THIFileSearchEx._work_doSearch;
var Dr,Ex:String;
begin
Dr := ReadString(_Data,_data_Dir,_prop_Dir);
Ex := ReadString(_Data,_data_Ext,_prop_Ext);
if Ex = '' then Ex :='*'; // Можно добавить, или if Ex = '' then exit;.
UniqueString(Ex);
FWorkExt.SetText(CharLower(PChar(Ex)), false);
.......
// if FWorkExt.Count = 0 then FWorkExt.Add('*'); // А это убрать.