Fehlermeldung bei function

[Helmi]

Hallo,

ich hab folgende function:

Delphi-Quellcode:

function GetFolderDate(Folder: string): TDateTime;
var
  Rec: TSearchRec;
  Found: Integer;
  Date: TDateTime;

begin
  Folder := ExcludeTrailingPathDelimiter(Folder);
  Result := 0;
  Found  := FindFirst(Folder, faDirectory, Rec);
  try
    If Found = 0 then
      begin
        Date   := FileDateToDateTime(Rec.Time);
        Result := Date;
      end;
  finally
    FindClose(Rec);
  end;
end;

Wenn ich compilieren will, dann erhalte ich folgende Fehlermeldung:
[Fehler] Updatethread.pas(72): Inkompatible Typen: 'Cardinal' und 'TSearchRec'

Nämlich bei:
FindClose(Rec); Ich weiss aber nicht warum, denn in der Delphi-Hilfe steht das gleiche drin.

Kann mir jemand helfen?