[Elite237]

Hola caro, fijate que cuando mando a hacer una consulta en el grid no me aparece nada, por que sera??este es mi codigo de mi boton

Código Delphi [-]
procedure TForm1.btnGeneraClick(Sender: TObject);
var
x:integer;
evalua:string;
begin
  //Obtiene la clave del combo evaluacion
  evalua:=copy(cmbEvaluacion.text,0,pos('-',cmbEvaluacion.text)-1);
  //OBTIENE LA SECCION
  query1.close;
  query1.sql.clear;
  query1.sql.add('select secc_eval,secc_nombre,secc_clave from tsecciones');
  query1.sql.add('where secc_eval = '''+evalua+'''');
  query1.sql.add('order by secc_nombre');
  abre(query1);
  //Obtiene la clave del combo evaluacion
  evalua:=copy(cmbEvaluacion.text,0,pos('-',cmbEvaluacion.text)-1);
  //OBTIENE LA PREGUNTA
  query1.Close;
  query1.sql.clear;
  query1.sql.add('select preg_evaluacion,preg_secc,preg_clave,preg_descripcion,secc_clave from tpreguntas,tsecciones');
  query1.sql.add('where preg_evaluacion = '''+evalua+'''');
  query1.sql.add('and preg_secc = secc_clave');
  query1.sql.add('order by preg_descripcion');
  abre(query1);
  //'+query1.fieldbyname('secc_clave').asstring);
  //Obtiene la clave del combo evaluacion
  evalua:=copy(cmbEvaluacion.text,0,pos('-',cmbEvaluacion.text)-1);
  //OBTIENE LA OPCION
  query1.close;
  query1.sql.clear;
  query1.sql.Add('select * from topciones');
  query1.sql.add('where opci_evaluacion = '''+evalua+'''');
  query1.sql.add('order by opci_descripcion');
  abre(query1);
  x:=1;
  sgEvaluacion.Cells[0,0]:='Número';
  sgEvaluacion.Cells[1,0]:='Pregunta';
  sgEvaluacion.Cells[2,0]:='Opcion 1';
  sgEvaluacion.Cells[3,0]:='Opcion 2';
  sgEvaluacion.Cells[4,0]:='Opcion 3';
  sgEvaluacion.Cells[5,0]:='Opcion 4';
  sgEvaluacion.Cells[6,0]:='Resultado';
  while not query1.eof do
   Begin
     sgEvaluacion.Cells[0,x]:=query1.fieldbyname('preg_clave').AsString;
     sgEvaluacion.Cells[1,x]:=query1.fieldbyname('preg_descripcion').AsString;
     sgEvaluacion.Cells[2,x]:='1';
     //query1.fieldbyname('preg_descripcion').AsString;
     sgEvaluacion.Cells[3,x]:='3';
     //query1.fieldbyname('opci_descripcion').AsString;
     sgEvaluacion.Cells[4,0]:='4';
     sgEvaluacion.Cells[5,0]:='5';
     inc(x);
     query1.next;
      if x=1 then
        sgEvaluacion.RowCount:=2
      else
        sgEvaluacion.RowCount:=x
   End;

end;

lo que hago es que si la seccion donde estan las preguntas son iguales, entonces que me arroje las preguntas que tiene esa seccion, y que al dar doble clic me muestra las opciones que le corresponden a esa pregunta.