[firebase-br] lentidao para abrir a lista de precos 2

[Rubens - Solucao Empresarial]

agradeco as outras respostas

como faço em vez de buscar 10000 itens de vez buscar apenas 50 - se eu digitar LIVRO busque apenas LIVRO  para baixo - 


Bom dia Pessoal to precisando de uma mao
tenho um cadastro de 10000 itens e leva 25 segundos para abrir
a seguinte rotina - se o usuario clicar no campo descricao ele coloca os produtos em ordem alfabetica e /ou se clicar no codigo ele abre a lista em ordem de codigo, pelo que pude entenbder ele esta puxando os 10000 itens toda vez como posso agilizar isso?
Alguem pode me dar uma ideia?
Agradeco a atencao - abaixo ta a rotina que uso

procedure Tpesq_produto.edt_descricaoEnter(Sender: TObject);
begin
//  edt_codigo.Clear;
  edt_descricao.Text := '';
  if edt_codigo.Text = '' then
    begin
    Dados.Produtos.Close;
    Dados.Produtos.SQL[0] := 'Select * from produtos';
    Dados.Produtos.SQL[1] := 'order by Descricao';
    Dados.Produtos.Open;
    edt_descricao.SetFocus;
    end
end;

procedure Tpesq_produto.edt_codigoEnter(Sender: TObject);
begin
  edt_descricao.Clear;
  edt_codigo.Text    := '';
  Dados.Produtos.Close;
  Dados.Produtos.SQL[0] := 'Select * from produtos';
  Dados.Produtos.SQL[1] := 'order by codigo1';
  Dados.Produtos.Open;
  edt_codigo.SetFocus
end;