Form Pesquisa

Boa Tarde,

Eu Uso o SQL Server, uso ADOConnection, ADODataSet, ADOQuery e DataSource.

Estou com um problema em um formulário de Pesquisa... Eu uso DBEdit no Edit do Fornecedor.

Essa tela seria o Formulário Principal, onde é o cadastro de Produtos, no Botão da Lupa, ele abre outro form, que é o form de pesquisa.

Eu gostaria de fazer o seguinte, no formulario de pesquisa, ele já está aparecendo no DBGrid o nome dos fornecedores, eu gostaria de digitar no campo do DBEdit da pesquisa, por exemplo letra B, e aparecer todos que começam com a letra B no DBGrid automático.

Eu cheguei a colocar esse código no OnKeyPress do DBGrid:

procedure Tform_pesquisaF.grid_pesquisaFKeyPress(Sender: TObject;
  var Key: Char);
begin
  if Key = #13 then
    begin
      if Assigned(form_fornecedor) then
        begin
          form_fornecedor.db_fornecedorF.DataSource.DataSet.FieldByName('FORNECEDOR').Value := grid_pesquisaF.DataSource.DataSet.FieldByName('FORNECEDOR').Value;
        end;
    end;
end;

Só que ele dá esse Erro:

Gostaria de saber como proceder, que código eu poderia por pra que as funções ocorram do jeito que eu gostaria.

Espero que possam me ajudar.

Obrigada.