[Pilot_Red]

Код:

procedure qwerty;
var
  MyStr:String;
begin

  MyStr:='qwerty'; {**}
  new(MyInfo);
  MyInfo.a:=@MyStr;
  MyInfo.s:=length(MyStr);
end;
{...некоторый код...}
 qwerty;
 //freemem(MyInfo.a,MyInfo.s);
 dispose(MyInfo);