[angvelem]

или так:

Код:

procedure qwerty;
var
  MyStr : String;
begin
  Count := 1; // для примера
  MyStr := 'qwerty'; {**}
  SetLength(MyInfo, Count); 
  MyInfo[Count - 1].a := @MyStr;
  MyInfo[Count - 1].s := Length(MyStr);
end;
{...некоторый код...}
 qwerty;