FPC, удаление директорий и файлов, было: Помогите с процедурой на FPC! Опции

[Билли Боб]

Процедура удаляет папку со всеми файлами и подпапками.

procedure DELE (fd: string);
var
   s: searchrec;
   f: file;
   delf,delfiles: string;

 function STAT (fd: string): string;
 var s: searchrec;
 begin
    stat:='';
    findfirst(fd,anyfile,s); if doserror<>0 then exit;
    if s.attr=VolumeID then findnext(s); if doserror<>0 then exit;
    if (s.attr>=16)and(s.attr<=23) or (s.attr>=48)and(s.attr<=55)
       then stat:='D' else stat:='F';
 end;

begin
   if stat(fd)='F' then begin assign(f,fd); setfattr(f,0); erase(f) end;
   if stat(fd)='D' then
      begin
         delfiles:=fd+'\*.*';
         findfirst(delfiles,anyfile,s);
         while doserror=0 do
            begin
               delf:=fd+'\'+s.name;
               if (s.name<>'.')and(s.name<>'..')and(s.name<>'') then
                  begin
                     if stat(delf)='F' then dele(delf);
                     if stat(delf)='D' then
                        begin
                           {$I-}rmdir(delf);{$I+}
                           if ioresult=5 then dele(delf)
                        end;
                  end;
               findnext(s);
            end;
            rmdir(fd);
      end;
end;

На TP работает, а вот на FPC как-то криво работает. Что-то удаляет,а что-то нет. Если указать просто пустой каталог, то даже его не удаляет.
В чем проблема?

[IUnknown]

так выходит ошибка: Incompatible types: got "untyped" expected "LongInt"

Как "так"? Почему у меня не выходит?

uses sysutils;

procedure DELE (fd: string);

   function stat (fd : string) : char; // Char - для того, чтобы можно было использовать в Case
   var s: tsearchrec;
   begin
      stat:=#0;
      if findfirst(fd,faanyfile,s) <> 0 then exit;

      if s.attr = faVolumeID then
         if findnext(s) <> 0 then exit;

      if (s.attr>=16) and (s.attr<=23) or
         (s.attr>=48) and (s.attr<=55)
      then
         stat:='D'
      else
         stat:='F';
   end;

var
   s : tsearchrec;
   f : file;
   delf, delfiles : string;

begin
   case stat(fd) of
   'F' : begin
         // assign(f,fd); setfattr(f,0); erase(f)
         // используется filesetattr из SysUtils вместо досовского setfattr
         end;
   'D' : begin
            delfiles:=fd+'\*.*';
            if findfirst(delfiles,faanyfile,s) <> 0 then
            repeat
               delf:=fd+'\'+s.name;
               if (s.name<>'.')and(s.name<>'..')and(s.name<>'') then
               begin
                  case stat(delf) of
                  'F': dele(delf);
                  'D': begin
                          {$I-} rmdir(delf); {$I+}
                          if ioresult = 5 then dele(delf)
                       end;
                  end; // case
               end;
            until findnext(s) <> 0;
            findclose(s);

            rmdir(fd);
         end;
   end; // case;
end;

begin
   // ...
end.

Ничего не менял в логике работы (хотя тут тоже есть, на что обратить внимание), просто добавил нужный модуль и поменял цикл. Компиляцию проходит успешно. FPC 2.4.4 ...