var
  string1, string2 : AnsiString;
begin
  // Присвоение известного предложения первой строке
  string1 := 'Hello World';

  // Присвоение второй строке
  // Это просто указывает string2 на string1
  // Число ссылок на память строки 'Hello World' равно 2
  string2 := string1;

  // Добавление второй строке
  // Это разъединяет от string1 - создаётся новая память для строки,
  // чтобы хранить значение string2
  string2 := string2 + ', how is everyone?';

  // И наконец, делаем длину первой строки равной 5
  SetLength(string1, 5);

  // Показ обоих хначений
  ShowMessage('String1 = '+string1);
  ShowMessage('String2 = '+string2);
end;