Apenas para Ver

  if (  key = 80  ) then
    begin
      key := 0;
      SistemaClass.FPesquisadoProduto:= TPesquisaProd.Create;

      with SistemaClass.FPesquisadoProduto do
      begin

       FDatasetCadProd.Open;
       FormataCamposFields( FDatasetCadProd,'###,##0.00');
       with SistemaClass do
       begin
         LabelToControl.Caption := 'MODO PESQUISA DO PRODUTO - DIGITE A DESCRICAO DO PRODUTO';
         LabelCodebar.Caption   :=  'DIGITE A DESCRICAO DO PRODUTO';
         FDatasetCadProd.SQL.Text := OpenDatasetProdSql;
         FGridConsultaProd.DataSource:= FDatasourceCadProd;
         FGridConsultaProd.visible:= True;
         FOldState := SistemaClass.Situacaodosistema;
         Situacaodosistema:= stPesquisandoProd;
         EditCodebar.Clear;
         EditCodebar.Color := stringtocolor( FModoFuncoes.FCorEdit );
         EditCodebar.OnKeyDown :=  FFunctionPesqProdOnkeydow.FunctionPesqProdOnkeyDown;
         EditCodebar.OnKeyPress := FTFunctionPesquisaProdKeypress.FunctionPesquisaProdKeypress;
       end;

// O Onkeydown tem que ser Escrito dna forma de vazio, para que não haja interação com o evento onkeydow Original, pois estou em modo de Pesquisar produtos e preciso permitir Letras e Numeros e caracteres..

procedure TFuncionPesqprodOnKeyDow.FunctionPesqProdOnkeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
// Sem implementação;
end;

// aqui está o Nosso OnkeyPress

//FTFunctionPesquisaProdKeypress.FunctionPesquisaProdKeypress;
//Logo apos Pressionar a Letra P entra no modo de consulta


procedure TFunctionPesquisaProdKeypress.FunctionPesquisaProdKeypress(Sender: TObject; var key: char);
 var FTConsultaTimer: TConsultaVisibilit; FTEdFunctionEdcodebarOnChange : TEdcodebarOnChange;
begin
    SistemaClass.EditCodebar.Clear;
    sistemaclass.FPesquisadoProduto.FDatasetCadProd.Filtered:= False;
    sistemaclass.FPesquisadoProduto.FDatasetCadProd.Filter := ' UPPER ( CAD_NOMEDOPROD ) like ' +
    quotedStr(ansiuppercase('%'+Tedit(sender).Text +'%'));
    SistemaClass.FPesquisadoProduto.FDatasetCadProd.Filtered:= True;

    if key = #13  then
    begin
     SistemaClass.GridConsultaProd.SetFocus;
    end;
    if (key = #27 ) then
    begin
       if ( SistemaClass.Situacaodosistema = stPesquisandoProd  ) then
     begin
      with SistemaClass do
      begin
       FPesquisadoProduto.DisposeOf;
       FLabelToControl.Caption := 'INSIRA OU PASSE O CODIGO DO PRODUTO';
       FLabelCodebar.Caption := 'CODIGO DO PRODUTO';
       Fsituacaodosistema := FOldState;
       EditCodebar.Color := stringtocolor(FModoFuncoes.FOldCorEdit);
       EditCodebar.PasswordChar:= #0;
       FTConsultaTimer.RestoreVisibilitConsulta;
       CarregaWait('CANCELANDO COMANDO',500);
       EditCodebar.Color := Stringtocolor( FModoFuncoes.FOldCorEdit);
       EditCodebar.OnChange   := FTEdFunctionEdcodebarOnChange.EdcodebarOnChange;
       EditCodebar.OnKeyPress := FTOnKeyPress.OnKeyPress;
       EditCodebar.OnKeyDown  := FTEdCodebarKeyDow.EdCodebarKeyDowOnkeyDown;
       FEditCdebar.Clear;
       FEditCdebar.SetFocus;

      end;
     end;
    end;

end;