程序代码：

procedure TForm1.FormCreate(Sender: TObject);
begin
  ('1');
  ('2');
  0;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i:Integer;
begin
    ();        // self.Button1.Enabled:=false;
     mscomm1.PortOpen:=true;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  mscomm1.Output:=memo1.Text;------------------------------------------------》》》这里出现调用错误
  application.MessageBox('数据发送成功','');
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  memo2.Text:=mscomm1.Input;-------------------------------------------------》》》这里也出现调用错误
  application.MessageBox('数据接收成功','');
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  close;
end;

end.