ok

project2.dpr

program Project2;

{$APPTYPE CONSOLE}

uses System.SysUtils;

var L: string;

procedure Test(const A: string);
var S: string;
begin
  S := A;
  //S := S + S;
  L := S + S;
  Writeln(A + ' '); // <- RefCnt = 0 
end;

begin
  try
    Test('X');
    Test(L);
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message, #13#10, E.StackTrace);
  end;
  Readln;
end.