TStringList.GetText

procedure Test_Set_GetText;
var
  text : String;
  TestObj : TStringList;
begin
  TestObj := TStringList.Create;
  try
    TestObj.Add('Hund');
    text := TestObj.GetText();
    TestObj.SetText(text);
    if ('Hund' <> TestObj.Strings[0]) 
      then raise ('Test_Set_GetText Fehler')
      else showmessage(TestObj.DelimitedText);
  finally
    TestObj.free;
  end;
end;