Stringübergabe dauert sehr lange wer kann helfen ?

[dorisdoloris]

Ich habe es jetzt mal mit TStringList getestet wird aber noch langsamer

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
slNew: TSringList;
begin

slNew := TStringList.Create;

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

slNew.Text := slNew.Text + ListBox1.Items.Strings[i];
If i mod 100 = 0 Then ProgressBar1.StepBy(100); // aktuelle Position

end; // schleife ende