我错在哪里？

procedure TForm_Loc.Button_LocClick(Sender: TObject);
var str :string;
begin
  str:=Edit_Loc.text;
  if  not DM.Table_basic.Locate('职工号',str,[loCaseInsensitive]) then    ShowMessage('您输入的职工号错误，请重新输入!');  else
    DM.Table_basic.GotoKey;  end ifend;
系统说我这里错了[Error] Unit9.pas(34): Undeclared identifier: 'loCaseInsensitive'我觉得我语法没问题啊