1:
2:
3:
4:

S:=Edit1.Text;
For A:=0 To TreeView1.Items.Count-1 Do
  If TreeView1.Items[A].Text=S
  Then ListBox1.Items.Add(TreeView.Items[A]);					

1:
2:
3:
4:
5:
6:
7:

  for i := 0 to Listbox.Items.Count - 1 do
    begin
      before := Listbox.Items.Strings[i];
      after := StringReplace(before, s, '_', [rfIgnoreCase]); // <-- nicht case-sensitve
        if before <> after then
          ShowMessage('In Zeile ' + inttostr(i+1) + ' kommt ' + s + ' vor.');
    end;					

1:
2:
3:
4:

 if pos(einKurzerString, einLangerString) > 0 then
  Showmessage(einkurzerString + ' ist in ' + einLangerString + ' enthalten.')
else
  Showmessage(einkurzerString + ' ist nicht in ' + einLangerString + ' enthalten.');