我将onreceivedata事件的代码贴上来了，请帮我分析一下，是否存在掉数据的现象？是否
需要修改？如何改？？
procedure TfrmMain.CommReceiveData(Sender: TObject; Buffer: Pointer;
BufferLength: Word);
var i:Integer;
single_hd:String;
athread:TDealLogThread;
cond1,cond2:Boolean;
begin
i:=1;
SetLength(Hds,BufferLength);
Move(Buffer^, PChar(Hds)^, BufferLength);
if Copy(HDs,1,Start_flag_len)<>Start_flag then
HDs:=start_flag+HDs;
//deal with the tele-records...
while (Length(HDs)>=TeleReco_len) do
begin
//if the next string is no more than a sole telereco len,
//the skip out of the loop
if Length(HDs)<TeleReco_len then Exit;
cond1:=Copy(HDs,1,Start_flag_len)=Start_flag ;
cond2:=Copy(HDs,1+Start_flag_len,start_flag_len)=Start_flag;
if (cond1) and (not cond2) then
begin
//得到单条电话话单
single_hd:=ExtractQuotedStr(Start_flag,End_flag,HDs);
if Start_flag=end_flag then
Delete(HDs,1,Start_flag_len+TeleReco_len)
else
Delete(HDs,1,Start_flag_len+TeleReco_len+End_flag_len);
//启动数据分析及入库线程
athread:=TDealLogThread.Create(single_hd,Database,Session,qrInsLog);
end
else
Delete(HDs,1,1);
end;
