TStringList bringt mich zum VerZweiFeln

[Spiderpig_GER_15]

ergänzung:

Delphi-Quellcode:

    .  
    .
    .
    begin
      if StrList.Count >= 2 then
      begin
        iI:=random(StrList.Count);
        Frame_1.SVoksToDo.Add(StrList[iI]);
        repeat
          kI:=random(StrList.Count);
          Frame_1.SVoksToDo.Add('es geht'); //hier kein Prob
        until kI <> iI;
        Frame_1.SVoksToDo.Add(StrList[kI]);
      end;
    end;
    StrList.Clear;
  end;

  Frame_1.SVoksToDo.Add('es geht'); //hier error  
  .
  .
  .

PS: reicht das, das komplett ist nämlich seehr lang