Recurso de auto completar com sonsulta SQL em campo

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]:=´ AND PESSOA.PES_NM LIKE ´´´ 
                               + edtNomeCliente.TExt + ´¬´´´
    Else
      TQuery(DSCliente.DataSet).SQL[3]:=´´;
    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[´PES_NM´];
      edtCodCliente.Text:=DSCliente.DataSet.FieldByName(´PES_CD´).AsString;
    end;
  end;
end;