Listbox nach Text durchsuchen

[Matze]

Willst du mich veräppeln?
Natürlich hat eine ListBox die Eigenschaft Items und der Code oben funktioniert 1:1, nur dass du "TStringList" durch "TListBox" ersetzen musst.

Delphi-Quellcode:

function InPlayList(Playlist: TListBox; VideoName: string): Boolean;
var
  i: Integer;
begin
  Result := false;

  for i := 0 to Playlist.Count - 1 do
  begin
    if VideoName = Playlist.Items[i] then
    begin
      Result := true;
      break;
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if not InPlayList(ListBox1, 'hallo') then
    ListBox1.Items.Add('hallo');
end;

Edit: versuche mal deine ganzen Codes zu verstehen und nicht blind 1:1 zu kopieren! Das bringt rein gar nichts.
Das mit IndexOf ginge so:

Delphi-Quellcode:

function InPlayList(Playlist: TListBox; VideoName: string): Boolean;
begin
  Result := PlayList.Items.IndexOf(VideoName) >= 0;
end;

Edit 2: Der Parameter kann natürlich auch vom Typ "TStrings" sein, aber das nur der Vollständigkeit halber.