if MsTscAx1.Disconnect=true then form2.Close; 这句提示出错！大家来看看！

Question

这是代码：
unit Unit2;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, MSTSCLib_TLB;type
  TForm2 = class(TForm)
    MsTscAx1: TMsTscAx;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form2: TForm2;
implementation{$R *.dfm}procedure TForm2.FormCreate(Sender: TObject);
begin
if MsTscAx1.Disconnect=true  then form2.Close;//这里提示出错
end;end.提示出错unit Unit2;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, MSTSCLib_TLB;type
  TForm2 = class(TForm)
    MsTscAx1: TMsTscAx;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form2: TForm2;
implementation{$R *.dfm}procedure TForm2.FormCreate(Sender: TObject);
begin
if MsTscAx1.Disconnect=true  then form2.Close;
end;end.错误信息是：Incompatible types
我是想如果这个MsTscAx1为断开连接，就关闭这个Form2!

Answer 1

代码应该没有问题，你要看下 disconnect这里是如何处理的，跟踪下。

Answer 2

如果写成这样if   MsTscAx1.Disconnect    then   form2.Close; 
错误提示就说Type of expression must be BOOLEAN
是什么原因啊？