COM口接收数据问题！

Question

procedure TForm1.MSComm1Comm(Sender: TObject);
var
  recstr: olevariant;
  str : string;
  i : integer;
begin
  MSCOMM1.Inputmode:= 1;
  if mscomm1.commevent = 1 then
  begin
    recstr := mscomm1.input;
    Memo2.Text := Memo2.Text + recstr;
  end;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  Mscomm1.InBufferCount :=0;
  Mscomm1.InputLen:=0;
  Mscomm1.RThreshold:=1;
  Mscomm1.PortOpen:=true;
  //MsComm1.InputMode:=comInputModeText;end;
//开始接收按钮。
procedure TForm1.Button1Click(Sender: TObject);
begin
  MSComm1.DTREnable := true;
  MSComm1.RTSEnable := true;end;
//发送数据
procedure TForm1.Button3Click(Sender: TObject);
begin 
  Mscomm1.InBufferCount:=0;
  MSComm1.Output := '123232';
end;
//**************
为什么接受不到数据？？？？？？
procedure TForm1.MSComm1Comm(Sender: TObject);这个事件没触发，为什么？？？MSCOMM的属性设置都是正确的

Answer 1

用Input来接收，我也是看资料中写的，不知道对不对，你可以把你的ocx发给我嘛，我连ocx都没有
[email protected]
谢谢你

Answer 2

if mscomm1.commevent = 2 then