有一难题，请大侠们帮助，小妹感激不尽

用串口接收数据，接收到后，调用write，把数据写入，然后调用read，就可以读到数据包。read返回
readok，那么就再调用read，直到不返回readok。就可以把缓冲区中所有的数据读出。
 其中，write，read，函数均已写好，我如何写一个主程序呢？
这里用缓冲区操作，我不太懂，还请各位帮忙，万分感谢
其中：
procedure TBuffer.Write(pBuff: PChar; uiCount: Cardinal);
   //write content to CBuffer addressed by pBuff.
  //pBuff:pointer to start address to be writed to buffer.
uiCount:count to write.
procedure TBuffer.PackBuffer(pSourceData: PChar; uiSrcCount: Cardinal; pDest: PChar;
                             var uiDstCount: Cardinal);
    //pack buffer addressed by pSource into buffer addressed 
by pDest.   //pSourceData:pointer to source buffer that will be packed.
    //uiSrcCount:source buffer size.
    //pDest:pointer to buffer where result of packing will be write in.
    //uiDstCount:dest buffer size.
function TBuffer.Read(pBuff: PChar; var uiCount: Cardinal): integer;    //read one complete pack from cbuffer,result is unpacked.
    //pBuff:result addressed reading from cbuffer.
uiCount:result count.
    //return:
read result.Obviusly descripted by enum result.procedure TBuffer.ClearBuff();    //clear send and receive buffer.