Stringübergabe dauert sehr lange wer kann helfen ?

[dorisdoloris]

Hallo liebe Delphifreunde erst ein Problem gelöst und schon hab ich ein neues

Schaut euch mal den Code an in der ListBox sind 20000 Zeilen enthalten und die Übergabe dauert recht lange

Code:

for i := 0 to ListBox1.Items.Count -1 do
begin
    sNew := sNew + '' + Listbox1.Items.Strings[i];
    ProgressBar1.Position := i; // aktuelle Position
end;

lg: Doris