delphi数据集查找不定位

procedure TForm1.Button2Click(Sender: TObject); var R: Variant; begin R : = MemTableEh1.Lookup( ‘ Name ‘ ,Edit1.Text, ‘ Name ‘ ); if not VarIsNull(R) then ShowMessage(R); end ;