Recurso de auto completar com sonsulta SQL em campo

12/01/2006

Ola gostaria de uma ajuda estou tentando fazer autocompletar em um campo atravez de uma consulta e não estou conseguindo simplesmente não faz consulta senhuma será o Key do teclado ?
eis o código:

procedure TfrmConsPedido.edtNomeClienteKeyUp(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  If Key = 113 then begin
    DSCliente.DataSet.Close;
    If edtNomeCliente.Text <> ´´ then
      TQuery(DSCliente.DataSet).SQL[3&93;:=´ AND PESSOA.PES_NM LIKE ´´´ 
                               + edtNomeCliente.TExt + ´¬´´´
    Else
      TQuery(DSCliente.DataSet).SQL&91;3&93;:=´´;
    DSCliente.DataSet.Open;
    frmGrid:=TFrmGrid.Create(Self);
    frmGrid.DBGrid1.DataSource:=DSCliente;
    If (frmGrid.ShowModal=mrOk) and (Not DSCliente.DataSet.IsEmpty)   
    then begin
      TEdit(Sender).Text:=DSCliente.DataSet&91;´PES_NM´&93;;
      edtCodCliente.Text:=DSCliente.DataSet.FieldByName(´PES_CD´).AsString;
    end;
  end;
end;

preciso de ajuda se puderem me ajudar ? :(


Warhjr