Ух ты, ***ическая сила!!! Ну кто ж так делает???
Цитата:
function FindFirst(const Path: string; Attr: Integer; var F: TSearchRec): Integer
|
Это ж системная функция, ты её переопределил и теперь у тебя рекурсия. Поменяй название, чтобы рекурсии не было.
Например:
Код:
function myFindSystemFiles(const Path: string; Attr: Integer; var F: TSearchRec): Integer