for- Schleife : Anfangsvariable aktualisieren

[aaaaaaaaaa_10]

Delphi-Quellcode:

 for j := 10 to Length(head) do
    begin
      TabPos1 := posEx(#9,head,j);
      if TabPos1 <> 0 then
      begin
        TabPos2 := posEx('[',head,TabPos1+1);
        ShowMessage(IntToStr(TabPos2));
        if TabPos2 <> 0 then
        begin
            Length1 := TabPos2-TabPos1;
            MWBeztemp := Copy(head, TabPos1,Length1);
            MWBez := MWBez+#9+MWBeztemp;
        end;
      end;
    end;

Dat tue ich bereits