[M.A.D.M.A.N.]

Вообще такое можно сделать через двунаправленный список:

Код:

type
  TJopa = record
    Data: string;
    Left, 
    Right: pointer;
  end;

А вообще, чем тебе стринг лист не нравится? Не по феншую?