Herauslösen eines Strings im string

[Ajintaro]

Hallo liebe DP !

Ich hab einige "Datensätze" in einer Textdatei abgelegt in diesem Format:

Code:

ID,[HEADLINE],TEXT1=TEXT2

sieht dann so aus:

Code:

12345,[WASSER],Wasser ist, wie es ist=Muss geschützt werden, oder?

Diese Datensätze werden zeilenweise in eine Listbox eingelesen. Wenn ich nun einen Eintrag selektiere, möchte ich einen Datensatz in seine Bestandteile zerlegen. Das hab ich so erledigt:

Delphi-Quellcode:

procedure TForm1.ListBox2Click(Sender: TObject);
var s_1,s_2,s_3, s_4:string;
ipos, yPos, x1pos, x2Pos:integer;
begin
 
 //Allen 4 Strings den selbe Zeile zuweisen
 s_1 := ListBox2.Items[ListBox2.ItemIndex];
 s_2 := ListBox2.Items[ListBox2.ItemIndex];
 s_3 := ListBox2.Items[ListBox2.ItemIndex];
 s_4 := ListBox2.Items[ListBox2.ItemIndex];

 //String1 = ID herauslösen
 yPos := Pos (',', s_1);//erstes Komma finden
 if (yPos > 0) then
 begin
   //Komma gefunden
   Delete(s_1,ypos, s_1.Length-1);
   Delete(s_2,1, yPos);
   e_id.Text:=s_1;
 end;

  //String HEADLINE herauslösen
  x1Pos := Pos ('[', s_4);
 if (x1Pos > 0) then
 begin
   //erste Klammer gefunden, jetzt 2. Klammer suchen
    x2Pos := Pos (']', s_4);
    if (x2Pos > 0) then
    begin
      //jetzt zurechtschneiden
       Delete(s_4,1, x1Pos);
       Delete(s_4,x2Pos,s_4.Length-1);
       showmessage(s_4);
    end;
 end;

 //STRING TEXT1
....
End;

Das funktioniert mit der ID problemlos, allerdings kann ich den Text zwischen den [ ] nicht richtig herauslösen, ich bekomme immer noch 3 Zeichen zusätzlich angezeigt. Aus

Code:

ID,[HEADLINE],TEXT1=TEXT2

soll

Code:

HEADLINE

werden, ist aber

Code:

HEADLINE],TE

Komischerweise ist Delete(s_4,1, x1Pos); völlig korrekt und schneidet alles bis zur ersten [ ab.
AUch Delete(s_4,x2Pos,s_4.Length-1); schneidet alles ab ].

Beides zusammen:

Delphi-Quellcode:

Delete(s_4,1, x1Pos);
Delete(s_4,x2Pos,s_4.Length-1);
showmessage(s_4);

bringt ein falsches Ergebnis..