1:
2:
3:
4:
5:

index :=  ListBox1.Items.IndexOf('suchstr');
if index > -1 then
   ShowMessage('Es handelt sich um den '+IntToStr(index+1)+'-ten Eintrag')
else
  ShowMessage('Eintrag existiert nicht.');					

1:
2:
3:
4:
5:

For Run := 0 to ListBox.ItemCount -1 do
begin
 if  not Pos(Suchstring, ListBox.Items[Run]) = 0 then 
    ShowMessage('Ergebnis an ' + IntToStr(Run) + 'ter Position');
end;					

1:
2:
3:
4:

run:=0;
while (Pos(Suchstring, ListBox.Items[Run]) = 0) and (run<ListBox.ItemCount-1) do inc(run)
if not Pos(Suchstring, ListBox.Items[Run]) = 0 then 
ShowMessage('Ergebnis an ' + IntToStr(Run) + 'ter Position');					

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

For Run := 0 to ListBox.ItemCount -1 do
  if not Pos(Suchstring, ListBox.Items[Run]) = 0 then
  begin
    ShowMessage('Ergebnis an ' + IntToStr(Run) + 'ter Position');
    Break; // Unterbricht die For-Schleife
   end;					

1:
2:
3:
4:
5:

For Run := 0 to form1.ListBox1.Items.Count -1 do
begin
if  not Pos(edit1.Text, form1.ListBox1.Items[Run]) = 0 then
    ShowMessage('Ergebnis an ' + IntToStr(Run) + 'ter Position');
end;					

1:
2:

edit_temp:='';
for i:=1 TO Length(edit1.text) DO edit_temp:=edit_temp+UpCase(edit1.text[i]);					

1:
2:
3:
4:
5:

For Run := 0 to form1.ListBox1.Items.Count -1 do 
begin 
if  not Pos(AnsiLowerCase(edit1.Text), AnsiLowerCase(form1.ListBox1.Items[Run])) = 0 then 
    ShowMessage('Ergebnis an ' + IntToStr(Run) + 'ter Position'); 
end;