Pointer auf einen String

[Neotracer64]

Kann mir einer verraten warum das keiner so gemacht hat?

Delphi-Quellcode:

[...]
var
  Str: String;
  PStr: ^String;
begin

  Str := '123';
  PStr := @Str;
  ShowMessage(PStr^);
end;