delphi - 过滤 ADOTable 错误 - “无法将 Null 类型转换为 OleStr 类型”

Question

我正在尝试过滤 ADOTable 以查找具有字段“OwnerName”值的记录与我的 GUI 组件上的编辑匹配。输入不存在的名称时，出现上述错误。当数据库中没有与过滤器匹配的名称时，我只想让 dbgrid 什么都不显示，怎么办？还是个菜鸟，有大神能指教一下吗？

使用的代码：

procedure TOwners.edt_Name_FilterChange(Sender: TObject);
begin
  Filter;
end;
//-----------------------------------------------------------
procedure TOwners.Filter;
begin
  if edt_Name_Filter.text = '' then
  begin
    CarOwners.tbl_Owners.Filtered := false;
    exit;
  end;

  with CarOwners do
  begin
    tbl_Owners.Filtered := false;
    tbl_Owners.Filter := 'OwnerName LIKE ''' + '%' + edt_Name_Filter.text +
      '%' + '''';
  if tbl_owners['OwnerName'] = null then
  begin
    tbl_owners.filter := '';
  end;
    tbl_Owners.Filtered := true;
  end;
end;