Delphi实现的环形缓冲区

给刚开始学习程序的朋友写了一个环形缓冲区的例子，可以图示出缓冲区中数据的情况。
  TRBInfo保存缓冲区的数据的结构体
  PRBInfo=^TRBInfo;
  TRBInfo=Record
  RTLCS:TRTLCriticalSection;
  HeadIndex:Integer; //指向数据的开头位置
  Position:Integer; //指向数据的结束位置
  BufferLen:Longint; //缓冲区的长度
  Buffer:Pointer; //缓冲区指针
  end;
  实现的缓冲区的写入，读取（复制，剪切)，运行中修改缓冲区的长度，修改缓冲区中某一位的数据。
请大家提出更好更高效的修正意见。
环形缓冲区数据情况，分成三种：1 空 2 有数据没有成环 3有数据已经成环

程序界面

下载地址
http://download.csdn.net/source/3573677

还有人在使用Delphi啊？