Was mache ich Falsch???

[bixi400]

Was mache ich hier Falsch?
Der Erste durchgang Klappt!
Der Zeite dann nicht mehr!
Könnt ihr mir Helfen?

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  TS,TS2 : TMemoryStream;
  I:Integer;
begin
I:=0;
TS:=TMemoryStream.Create;
TS2:=TMemoryStream.Create;
TS.Clear;

 while I<ListBox1.Items.Count do
  begin
   TS2.LoadFromFile(ListBox1.Items[I]);
   TS.CopyFrom(TS2,TS2.Size);

   I:=I+1;
  end;
...