FindFirst & FindClose

Witam wszystkich.

Ma sobie taką procedurkę

 function TInfo._Get_List(_DRIVE : String) : Byte;
 var Rec : TSearchRec;
 begin
   Result := 0;
   if FindFirst(_DRIVE + '\*.ifo', faAnyFile, Rec) = 0 then
     try
       repeat
         if Rec.Size > 10000 then begin
                                    _number := Copy(Rec.Name, 5, 2);
//                                    _result := True;
                                  end;                
       until FindNext(Rec) <> 0;
     finally
       FindClose(Rec);                    // <- Tu jest błąd
     end; // else ShowMessage('!!!');
 end;

i wszystko działa dobrze jeśli funkcja jest w głównym programie, ale kiedy przeniosę ją do innego Unita, (oczywiście z pełną deklaracją) to w zaznaczonym miejscu kompilator wyrzuca błąd :

<font color="blue">[Error] Incompatible types : 'Cardinal' and 'TSearchRec'.</span>

Wszelkie podpowiedzi mile widziane :)

Moze w tym Unicie masz juz jakas funkcje o nazwie FindClose z parametrem typu Cardinal ??

Oki. Problem rozwiązany.

Wywaliłwem z Unita w sekcji Uses wpis 'Windows' i pomogło tylko dlaczego ?

Bo tam tez jest FindClose

mozna tak

SysUtils.FindClose()
Windows.FindClose(ten z cardinal w param)