проблема с функцией

function SearchFiles(put: string): integer;
var
status, y: integer;
BEGIN
status := FindFirst(put + '*.*', 1, SearchRec);
try
while status = 0 do
begin//1
{uznaem skoka failov v kataloge}
if (SearchRec.Attr = 1) then
begin//2
if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
begin//3
y:= y + 1;
end;//3
end;//2
status := FindNext(SearchRec);
end;//1
finally
FindClose(SearchRec);
end;
SearchFiles:= y;
END;
-------------
ParentDirectory:= IncludeTrailingBackSlash(Edit1.Text);{c:\}
-------------
countFiles:= SearchFiles(ParentDirectory);
-------------
countFiles = 4 млн! Подскажите где ошибка.