Fehler mit FindFirst

[silentAMD]

hi,
bei folgendem code bekomme ich einen fehler angezeigt:

Delphi-Quellcode:

procedure TForm1.loadcontent(name: String);
var sr: TSearchRec; album: TAlbum;
begin
  if(FindFirst(ExtractFilePath(ParamStr(0))+'*.*',faDirectory,sr)=0) then
  begin
    repeat
      if(sr.Attr and faDirectory = faDirectory) and not((sr.Name = '.') or (sr.Name = '..')) then
      begin
        album := TAlbum.Create;
        album.dir_name := sr.Name;
        with ListView1.Items.Add do
        begin
          caption := sr.Name;
          data := album;
        end;
      end;
    until FindNext(sr)<>0;
    FindClose(sr);
  end;
  change_enabled;
  //sl.SaveToFile(ExtractFilePath(ParamStr(0))+'\beispiel.txt');
end;

er bezieht sich auf den "FindFirst"-Teil unmittelbar nach dem ersten begin... der fehler heisst:

[Fehler] Unit1.pas(63): E2034 Zu viele Parameter

Was habe ich falsch gemacht??


OHJE SORRY!!! Hat sich erledigt... hab ne weitere funktion namens findfirst gehabt :D