通讯怎么回这样

本代码可以通讯，但是点击发送后，一直处于发送状态，停止不了，比如发送1234
后，Memo2的内容是12341234123412341234123412341234。求助高手/我该怎么办？？
//Comm1发送数据
procedure TForm1.BitBtn4Click(Sender: TObject);
var
strSend:String;
i:Integer;
begin
 try
 Comm1.StopComm;
 Comm1.StartComm;
 except
 Messagedlg('无法打开COMM1!' ,mterror,[mbOK],0);
 end;
 sleep(50);//等待一段时间
 StatusBar1.Panels[1].Text:='串口1已启动';
 for i:=0 to  Memo1.Lines.Count-1 do
 begin
 StrSend:=Memo1.Lines[i];
 try
 StatusBar1.Panels[1].Text:='串口1正在发送数据';
 Comm1.WriteCommData(PChar(strSend),Length(strSend));
 //发送字符串数据
 except
  ShowMessage('发送错误');
  end;

end;
end;

//Comm2串口接收数据
procedure TForm1.BitBtn6Click(Sender: TObject);

type
IArr=^integer;
var
RevP:array[1..4096]of byte;
i:integer;
CommRevstr:shortString;
BufferLength: Word;
Buffer: Pointer;
begin
 SetLength(CommRevstr,BufferLength);
 Move(IArr(buffer)^,Revp,bufferLength);
 For i:=1 to BufferLength do
  begin
   CommRevstr[i]:=Char(Revp[i]);
  end;
 Memo2.Lines.Add(CommRevStr);//添加到Memo2中
 StatusBar1.Panels[2].Text:='串口2正在接收数据';

end;
----------------------------------------------

cOM1发送
COM2接收