1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

function Search(ListBox:TListBox;Str:string;CaseSen:boolean=False):integer;
var s:string;
    i:integer;
begin
 Result:=-1;
 if not CaseSen then Str:=AnsiUpperCase(Str);
 for i:=0 to ListBox.Items.Count-1 do begin
  s:=ListBox.Items[i];
  if not CaseSen then s:=AnsiUpperCase(s);
  if pos(Str,s)>0 then begin
   Result:=i;
   exit;
  end;
 end;
end;

// Aufruf

IndexOfEx(ListBox1,'Hallöle',False);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure ListMatches(const src, dest: TStrings; const Pattern: string;
                      CaseSensitive: Boolean = false);
var i: Integer;
begin
  dest.BeginUpdate;
  try
    dest.Clear;
    for i := 0 to src.Count-1 do
      if (CaseSensitive and AnsiContainsStr(src[i],Pattern)) or
         (not CaseSensitive and AnsiContainsText(src[i],Pattern))  then
        dest.Add(src[i]);
  finally
    dest.EndUpdate;
  end;
end;					

1:
2:
3:
4:

procedure TForm36.Button1Click(Sender: TObject);
begin
  ListMatches(ListBox1.Items,ListBox2.Items,'Ein',true);
end;