Such function in FileListBox Funktioniert nicht richtig

[Wurstuk]

Hi ich versuche eine Suchfunktion für eine FileListBox zu schreiben. Nachdem ich ein bisschen im Internet rumm geguckt habe, hab ich mir das hier zusammen geschrieben:

Delphi-Quellcode:

procedure TForm4.edit_sucheChange(Sender: TObject);
var i : integer;
begin
  for i := 0 to FileListBox1.Count - 1 do
  begin
    if Pos(FileListBox1.Items[i], edit_suche.Text) > 0 then
    begin
      btn_gpOeffnen.Caption := 'Y'; // Nur zu Test Zwecken
    end
    else
    begin
      btn_gpOeffnen.Caption := 'N'; // Nur zu Test Zwecken
    end;
  end;
end;

Wenn ich jetzt die unterste Datei aus der FileListBox in der suche eingebe wechselt der button zwar auf Y aber erst nachdem dem ich den ganzen namen eingegeben habe. Ich möchte aber versuchen so eine Dynamische Suche zu schreiben. So dass Wenn ich einen Buchstaben schreibe und er in einem Dateiname drinn ist der Button(nur zu test zwecken) auf Y wechselt. Ich hoffe ihr versteht was ich meine^^

Weiß jemand was ich falsch mache und/oder wie es richtig geht?

fg

edit: Vielleicht könnte mir jemand nebenbei auch noch kurz sagen ob es geht eine datei aus einer FileListBox raus zu nehmen, aber die Datei selbst nicht zu verändern.