简单可是我不会的Incompatible type！请问正确的比较语法是怎样写的？(50分)

procedure TForm1.notifyScroll;
var
aUS:TUpdateStatus;
begin
aUS:=ADODataSet1.UpdateStatus;
if (aUS=usUnModified) then //此句Incompatible type
SetUpdateStatusInfo(True,False,False,False)
else if (aUS=usModified) then //此句Incompatible type
SetUpdateStatusInfo(False,True,False,False)
else if (aUS=usInserted) then //此句Incompatible type
SetUpdateStatusInfo(False,False,True,False)
else if (aUS=usDeleted) then //此句Incompatible type
SetUpdateStatusInfo(False,False,False,True)
end;

没有错啊

运行就知道有错了。

运行了 你标注的地方没有错

没出现你的错误，检查一下是不是
你的SetUpdateStatusInfo函数有问题！

找到原因了，是我把四个checkbox的Name分别设为usUnModified,usModified,usInserted,usDeleted，与
ADODataSet1的TUpdateStatus类型的值发生同名冲突引起的。比较时：if (aUS=usUnModified)，编译器
把usUnModified视作checkbox了，所以InCompatible Type。谢谢你们的提醒！