串口自动发送退出求助

这个代码部分：
procedure TForm2.Button2Click(Sender: TObject);
begin
  while checkbox1.Checked do
    begin
      button2.Enabled:=false;
      mscomm1.Output:=memo1.Text;
      sleep(500);
    end;
     button2.Enabled:=true;
     mscomm1.Output:=memo1.Text;
end;
我想问下就是在这里就会进入死循环，我想按checkbox1控件却按不动，就像死机了一样，我是新手不大懂呀，请问下应该怎么改呀。