String Grid

[Elite237]

Hola, caro, una preguntota por que no me visualiza el panel con las respuestas a las preguntas??Utilice lo que me comentaste, para saber en donde hace doble clic el usuario, que es la columna 2(donde tengo mis preguntas)Mi codigo es el siguiente:

Código Delphi [-]
procedure TForm1.sgEvaluacionDblClick(Sender: TObject);
var
evalua:string;
begin
    if sgEvaluacion.col=2 then
  begin
    evalua:=copy(cmbEvaluacion.text,0,pos('-',cmbEvaluacion.text)-1);
    query3.close;
    query3.sql.clear;
    query3.sql.Add('select opci_evaluacion,opci_secc,opci_pregunta,opci_descripcion,opci_valor,preg_clave,preg_secc from topciones,tpreguntas');
    query3.sql.add('where opci_evaluacion = '''+evalua+'''');
    query3.sql.add('order by opci_descripcion');
    abre(query3);
    while not query3.Eof do
     Begin
      rgRespuestas.Items.Add(query3.FieldByName('opci_descripcion').asstring);
      query3.Next;
     End;
    panel1.visible:=true
  End;
    showmessage('No hay opciones para esta pregunta');
end;