1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

var
i:Integer;
gefunden:Boolean;
begin
if key=VK_Return
   then
       begin
            gefunden:=False;
            for i:=0 to LbListe.Items.Count-1 do
            begin
            if EdtSuche.Text=LbListe.Items[i]
                then
                begin
                LbListe.Selected[i]:=True;
                gefunden:=True;
                end;
            end;
            if gefunden=False
            then
       begin
       application.MessageBox('Film nicht in der Liste','Filmliste');
       EdtneuerFilm.Clear;
       EdtneuerFilm.SetFocus;
       end;
       end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

var suchwort: string;
    i: integer;
begin
  suchwort:=edit1.text;
  for i:=0 to listbox1.items.Count-1
    do begin
      if comparetext(suchwort, listbox1.Items[i])=0
        then Listbox1.Selected[i]:=true;
    end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:

procedure SplitSearchString(Search: String; var SL: TStringList);
var
  I: Integer;
  S: String;
begin
  Search := Trim(Search);
  S := '';
  for I := 1 to Length(Search) do begin
    if (Search[I] in [',', ':', '.', '-', ' '])  //usw....
    or (I = Length(Search)) then begin
      S := Trim(S);
      if Length(S) > 0 then
        SL.Add(S);
      S := '';
    end
    else
      S := S + Search[I];
  end;
end;

var
  J: Integer;
  SL: TStringList;
  B: Boolean;
{...}
gefunden:=False; 
SL := TStringList.Create;
try
  SplitSearchString(EdtSuche.Text, SL);
  for i:=0 to LbListe.Items.Count-1 do  
  begin  
    B := True;
    for J := 0 to SL.Count - 1 do
    begin
      if Pos(SL.Strings[J], LbListe.Items[i]) = 0 then  //wenn nicht vorhanden
        B := False;
    end;
    if B then begin
      LbListe.Selected[i]:=True;  
      gefunden:=True;  
    end;  
  end;
finally
  SL.Free;
end;