[Yacudzer]

а чем такой вариант плох?

Код:

  x:='qwertyqqqqq.';
  x_len:=length(x);
  GetMem(MyStr,x_len);
  MyStr^:=x;
  new(MyInfo);
  MyInfo.a:=MyStr;
  MyInfo.s:=x_len;

ну и освобождение памяти как описано выше...

в любом случае, всем спасибо...