TStringList.AddStrings

procedure Test_AddStrings;
var
  TestObj : TStringList;
  list    : TStringList;
  lsit2   : TStringList;
begin
  list    := TStringList.Create;
  list2   := TStringList.Create;
  TestObj := TStringList.Create;
  try
    list2.Add('Dog');
    list2.Add('Cat');
    list.AddObject('list2',list2);
    TestObj.AddStrings(list);
    if not(list2.Equals(TStringList(TestObj.Objects['list2']))) 
      then raise ('Test_AddStrings Fehler')
      else showmessage(TStringList(TestObj.Objects['list2']).DelimitedText);
  finally
    list.Free;
    TestObj.free;
  end;
end;