dizindeki istenilen dosyaları listbox'a alma

[muttalip]

Gridde seçilen kişilere ait sicil numarası ile başlayan dosya isimlerini Listbox' a almak istiyorum.Bunun için aşağıdaki gibi bir kod yazdım.Fakat "too many actual parameters" şeklinde bir hata mesajı alıyorum. Bu hatadan kurtulamıyorum. Hatayı "Files := FindFirst(msicilno, fileattrs, sr);" komutunun bulunduğu satırda alıyorum.

Kod: Tümünü seç

procedure TForm1.List1Click(Sender: TObject);
var
 Files,i,fileattrs : integer;
 sr : TSearchRec;
 path : string;
 msicilno : string;
 memail : string;
Begin

  path:='c:\ucretfis\';
  Form5.Memo1.Lines.Clear;

  fileattrs:=0;
  fileattrs:=fileattrs + faAnyFile;
  If DBGrid3.SelectedRows.Count > 0 Then
  Begin
    With DBGrid3.DataSource.DataSet Do
    Begin
      For i := 0 To DBGrid3.SelectedRows.Count-1 Do
      Begin
        ADOTable1.GotoBookmark(TBookmark(DbGrid3.SelectedRows.Items[i]));

        msicilno:=path+trim(ADOTable1sicilno.AsString)+'*.txt';
        memail:=trim(ADOTable1email.AsString);

        ListBox2.Items.Clear;
        Files := FindFirst(msicilno, fileattrs, sr);

        If Files=0 Then
        Begin
          While Files=0 Do
          Begin
            If sr.Attr<>faDirectory Then
            Begin
              ListBox2.Items.Add(Path+sr.Name);
            End;
            Files:=FindNext(sr);
          End;
          FindClose(sr);

        End;
      End;
    End;
  End;
End;

[muttalip]

With DBGrid3.DataSource.DataSet Do
Begin


satırını kaldırarak sorunu çözdüm.

[rsimsek]

evet DataSet in FindFirst u ile çakıştı.