mehrere Dateien in 1

[SaFu]

Mosche

hab immernoch das Problem mit meinen Log Dateien

Und zwar möchte ich jetzt alle inhalte aus allen log datein (bis zu 31) in eine speichern.
Wie stell ich das am besten an??
Hab bist jetzt das hier:

Delphi-Quellcode:

procedure TForm1.Button5Click(Sender: TObject);
Var  sl1 : TStringList;
     sl2 : TStringList;
     i : Integer;
begin
Memo1.Lines.BeginUpdate;
 try
  for I := 1 to 10000 do

  sl1:= TStringList.Create;
  sl1:= TStringList.Create;
  sl1.LoadFromFile(FileListBox1.FileName);

  sl2:= sl1;
  Memo1.Text:= sl2.Text;
 Finally
   Memo1.Lines.EndUpdate;
 end;
end;