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

   for i := 0 to listbox1.Items.Count - 1 do
   begin
      if listbox1.Selected[i] then
      begin
         InsertFelderFuellen(listbox1.Items.Strings[i]);
         If (InsTitel = 'FEHLER') and (InsInterpret = 'FEHLER') then
         begin
            ShowMessage('Fehler aufgetreten')
            nächster schleifendurchgang mit i+1 starten!
         end;
         .....
         .....
      end;
   end;