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

procedure TfrmMain.btnReadClick(Sender: TObject);

var
i : Integer;
...

begin
...
   for i := 0 to ListBoxRead.Items.Count -1 do
   begin 

   if ListBoxRead.Items[i] := '## 123'
      begin
      ...
      end;

   if ListBoxRead.Items[i] := '## 234'
      begin
      ...
      end;
    ...
   end;
end;					

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

for i := 0 to ListBoxRead.Items.Count -1 do
begin
...
   case (ListBoxRead.Items[i]) of //<- Ordinaltype required
       '## 123' :                //<- Incompatible types 'Integer' and 'String'
           begin
           ...
           end;

       '## 234' :
           begin
           ...
           end;
end;					

1:
2:
3:
4:
5:

if ListBoxRead.Items[i] := '## 123' 
 begin 
 ... 
   continue;
 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:

uses StrUtils;

const
  POSSIBLEVALUES: array[0..4] of string = (
    '## 123',
    '## 234',
    '## 345',
    '## 456',
    '## 567');

procedure TFormTest.ButtonTestClick(Sender: TObject);
begin
  case AnsiIndexText('## 345', POSSIBLEVALUES) of
    -1:
      ShowMessage('Nicht enthalten');
    0:
      ShowMessage('Erster');
    1:
      ShowMessage('Zweiter');
    2:
      ShowMessage('Dritter');
    3:
      ShowMessage('Vierter');
    4:
      ShowMessage('Fünfter');
  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:

...
s := 0;
  for i := 0 to ListBoxRead.Items.Count -1 do
    begin
    k := i+s; //schiebt die Schleife künstlich vor, um unnötige Abfragen zu überspringen
    if k >= ListBoxRead.Items.Count then break; //sorgt dafür, dass List out of bounds vermieden wird
    if ListBoxRead.Items[k][1] = '#' then
        if ListBoxRead.Items[k][3] = 'H' then
        begin
        s := 0; //setzt den Hilfszähler zurück
      //2
        if ListBoxRead.Items[k] ='##X 2' then
          begin
            while ListBoxRead.Items[k+s] <> '##Y 2' do begin
              StringList2.Add(ListBoxRead.Items[k+s]);
              s := s+1;
            end;
            StringList2.Add('##Y 2');
            continue;
          end;
         ...
     end;
...					

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

if ... then
  begin
  end
else if ... then
  begin
  end
else if ...					

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

//function IndexOf(const S: string): Integer; override;
//Beschreibung
//Mit IndexOf können Sie das erste Auftreten des Strings S ermitteln. IndexOf gibt den auf Null basierenden Index des Strings zurück. Wenn S also mit dem ersten String in
//der Liste übereinstimmt, liefert IndexOf 0 zurück, beim zweiten String 1 usw. Ist der String nicht vorhanden, gibt IndexOf -1 zurück.

  var
    StrgLst : TStringList;
    s : string;
  begin
    StrgLst := TStringList.Create;
    // hier die Stringliste StrgLst füllen
    
    //z.B.: s = '## 123':
    s := '## 123';
    n = StrgLst.IndexOf(s); 
    case n of 

    0 : ..;
    1 : ..;
    else
    ..;
    end;
  end;