という事で
function GetFileInfo(const fname:string):TSearchRec

とした方が早くなる筈


＃fname の確保解放作業が減る分だけね