[spyfenix]

que tal

miren aqui les dejo mi codigo de como lo tengo actualmente y que me sigue marcando el mimso error

Código Delphi [-]
qryPorNombre.Parameters.ParamByName('pNombre').Value := TRIM(edtInfo.Text);
      qryPorNombre.Open;
      aMatricula := qryPorNombrematricula.Value;
      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

gracias, saludos