关于多字符串链表储存数据的问题，求教高手

type
  TBuffer = record
    BufferID :string;
    BufferSize:integer; 
end;type
  TInputStr = record
    FInputStr :string;  //标签
    FDateTime:TDateTime; //存入时间
end;//申明输入区储存数据列表、总数
      FArrInputStrCount:Integer;
      FArrInputStr:array of TInputStr;
      FBuffer:array of TBuffer;这是我以上对record类的定义与变量申明，问题来了，我这样字符串链表的定义只能支持单组，也就是setlength(FArrInputStr,10)，程序中也只能取这10个组里的每个record的对象，我如何实现多为的链表呢？icnt := 10;
SetLength(FBuffer,icnt);
SetLength(FArrInputStr,icnt);可以看到我上面代码有两个Record类，而我现在想实现的是让FarrInputstr类作为Fbuffer的数据对象，也就是每个Fbuffer类有自己的储存数据的空间，我知道可能是我走进死胡同想不出什么号办法了，这种办法可能不可行，请教高手我该如何处理这种链表对链表的数据储存？