Spcomm控件发送问题请教(急)(100分)

最近用Spcomm空间编写串口发送程序,遇到了问题.
程序得第一次发送成功,重复发送失败.不知道为什么!高人教我!
procedure TMainform.btnCmdSendClick(Sender: TObject);
var
i:integer;
li_len:integer;
ls_temp:string;
commflg:boolean;

begin

commflg:=true;
ls_temp:=string(edit1.Text)+char(13);
li_len:=length(ls_temp);

if not Mainform.comm1.writecommdata(pchar(ls_temp),li_len) then
begin
commflg:=false;
end;
sleep(2);


//发送时字节间的延时





viewstring:='发送数据:'+ ls_temp ;

memo1.lines.add(viewstring);

memo1.lines.add('');
edit1.SelectAll;
if not commflg then messagedlg('发送失败 !' ,mterror,[mbyes],0);

顶

没有理由，接收方收到了吗？