Problemas con consulta ADO

[[Caral]]

Hola

Código Delphi [-]
qryPorNombre.Close; // por si se quiere repetir la consulta ya que hay un add
qryPorNombre.Sql.Text:= 'SELECT nombres, apellido1, apellido2, sexo ,edad ,matricula , grupo, carrera,semestre, cumple, celular, telefono';
qryPorNombre.Sql.Add('FROM  miembros  WHERE nombres = :Nombre');
qryPorNombre.Parameters.ParamByName('Nombre').Value := TRIM(edtInfo.Text);
qryPorNombre.Open;
      aMatricula := qryPorNombrematricula.Value; // esto tiene que estar en la casilla de verificacion
      if  aMatricula <> 0 Then
      begin
        While Not qryPorNombre.Eof Do
        begin
          //grdBusqueda.cells[0, grdBusqueda.RowCount -1] := qryPorNombrenombres.Values;
          grdBusqueda.cells[1, grdBusqueda.RowCount -1] := qryPorNombrecelular.AsString;
          grdBusqueda.cells[2, grdBusqueda.RowCount -1] := qryPorNombretelefono.AsString;
          grdBusqueda.cells[3, grdBusqueda.RowCount -1] := qryPorNombresemestre.AsString;
          grdBusqueda.cells[4, grdBusqueda.RowCount -1] := qryPorNombregrupo.AsString;
          grdBusqueda.cells[5, grdBusqueda.RowCount -1] := DateToStr(qryPorNombrecumple.Value);
          qryPorNombre.Next;
        end;
      end

o lo mismo sin parametros:

Código Delphi [-]
qryPorNombre.Close; // por si se quiere repetir la consulta ya que hay un add
qryPorNombre.Sql.Text:= 'SELECT nombres, apellido1, apellido2, sexo ,edad ,matricula , grupo, carrera,semestre, cumple, celular, telefono';
qryPorNombre.Sql.Add('FROM  miembros  WHERE nombres = '+ TRIM(edtInfo.Text));
qryPorNombre.Open;
      aMatricula := qryPorNombrematricula.Value; // esto tiene que estar en la casilla de verificacion
      if  aMatricula <> 0 Then
      begin
        While Not qryPorNombre.Eof Do
        begin
          //grdBusqueda.cells[0, grdBusqueda.RowCount -1] := qryPorNombrenombres.Values;
          grdBusqueda.cells[1, grdBusqueda.RowCount -1] := qryPorNombrecelular.AsString;
          grdBusqueda.cells[2, grdBusqueda.RowCount -1] := qryPorNombretelefono.AsString;
          grdBusqueda.cells[3, grdBusqueda.RowCount -1] := qryPorNombresemestre.AsString;
          grdBusqueda.cells[4, grdBusqueda.RowCount -1] := qryPorNombregrupo.AsString;
          grdBusqueda.cells[5, grdBusqueda.RowCount -1] := DateToStr(qryPorNombrecumple.Value);
          qryPorNombre.Next;
        end;
      end

Saludos