Dateien FindNext

[SaFu]

Guten Abend,

ich versuche eine Sender"Datenbank" mit Hilfe von .ini Dateien aufzubauen, soweit funktioniert auch alles nur die Suche mit Hilfe des Edits funzt noch nicht so wirklich.

Wenn Ich z.B. ard eingebe wird auch arte gefunden was mache ich hier falsch?

Code:

procedure THauptseite.SendersucheEditKeyPress(Sender: TObject; var Key: char);
var RueckgabeFile: TSearchRec;
begin

  begin
   Dateiname:= SendersucheEdit.text;
   SenderIniFile:= TMemIniFile.Create(Ordner + '\'+ Dateiname + '.ini');
   Senderladen;
  end;

 begin
  SenderAuswahlListe.Clear;
  SetCurrentDir((ExtractFilePath(ParamStr(0)) + 'Senderdatenbank\'  ));
    FindFirst(SendersucheEdit.Text + '*.ini', faDirectory , RueckgabeFile);
    SenderAuswahlListe.Items.Append(ChangeFileExt(RueckgabeFile.Name, ''));

    while FindNext(RueckgabeFile) = 0 do
      SenderAuswahlListe.Items.Append(ChangeFileExt(RueckgabeFile.Name, ''));
      FindClose(RueckgabeFile);

     end;

    if SenderSucheEdit.Text = '' then
    begin
     SenderSucheEdit.Clear;
     SenderAuswahlListe.Clear
    end;
end;

Gruß