String Grid

[Elite237]

Este es mi codigo...asi lo deje pero me manda un error de consulta:

Código Delphi [-]
procedure TForm1.sgEvaluacionDblClick(Sender: TObject);
var
evalua:string;
GridCoord:TGridCoord;
begin
  GridCoord:=sgEvaluacion.MouseCoord(Mouse.CursorPos.x, Mouse.CursorPos.y);
  panel1.visible:=true;
  query1.close;
  query1.sql.clear;
  query1.sql.Add('select opci_evaluacion,opci_secc,opci_pregunta,opci_clave,opci_descripcion,opci_valor from topciones');
  query1.sql.add('where opci_pregunta = '''+evalua+'''');
  query1.sql.add('order by opci_descripcion');
  abre(query1);
  while not query1.Eof do
   Begin
    rgRespuestas.Items.Add(query1.fieldbyname('opci_descripcion').asstring);
   End;
end;

Caro, como uso esa propiedad...con que la comparo???tengo que contar las celdas o algo asi?