Warum erstellst du den Searchrect überhaupt neu?
Edit:Naja Luckie war schneller
Also bei mir funktioniert es so auf jeden fall.
Delphi-Quellcode:
procedure xy.xxxx;
var
Search : TSearchRec;
begin
if FindFirst (Directory+'\*.*' , faAnyFile-faSysFile, Search) = 0 then begin
repeat
fiExt := uppercase(ExtractFileExt(search.name));
....