Инкрементальный поиск в dbgrid с использованием поля редактирования

Question

Прошло некоторое время с тех пор, как я занимался программированием на Delphi, и я искал несколько примеров того, как постепенно выполнять поиск в dbgrid, вводя поисковый термин в поле редактирования, и я нашел следующий код, который, похоже, помогает при большая часть, но он проверяет условие фильтра для каждого столбца в сетке, и я хотел бы ограничить условие фильтра, чтобы он проверял только один столбец в сетке (например, столбец 1), как бы я это сделал, используя предоставленный код?

procedure TForm1.Edit1Change(Sender: TObject);
begin
  FDTable1.Filtered := false;
  FDTable1.Filtered := Edit1.Text <> '';
end;

procedure TForm1.FDTable1FilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
var
  i: integer;
begin
  for i := 0 to DataSet.FieldCount - 1 do begin
    Accept := Pos(UpperCase(Edit1.Text),
      UpperCase(DataSet.Fields[i].AsString)) = 1;
    if Accept then exit;
  end;
end;