[Bargest]

Если я правильно понял, то ты делаешь строку, а потом юзаешь ее как массив байт. С динамическими строками так не прокатит: они сами есть указатели. Попробуй так

Код:

type
  pb=^tb;

//вместо
tbp:=@ans
//сделай
tbp:=pb(ans)

НО ТОЛЬКО ДЛЯ ДИНАМИЧЕСКИХ