代码出错，帮忙看看

Question

代码：
  procedure TForm1.RadioButton1Click(Sender: TObject);
begin
  case TComponent(sender).Tag of
    0:
      begin
        if (DataModule2.ADODataSet1.LockType=ltBatchOptimistic)
          then
        begin
          DataModule2.ADODataSet1.Filtered:=true;
          DataModule2.ADODataSet1.FilterGroup:=fgnone;
        end;
      end;
    1:
      begin
        if DataModule2.ADODataSet1.LockType=ltBatchOptimistic
            then
        begin
          DataModule2.ADODataSet1.Filtered:=true;
          DataModule2.ADODataSet1.FilterGroup:=fgPendingRecords;
        end;
      end;
  end; //case
end;
------------------------------
但系统提示
[Error] Adomain.pas(52): Undeclared identifier: 'ltBatchOptimistic'

Answer 1

DataModule2.ADODataSet1.LockType=[ltBatchOptimistic];