Cambiar Locate por Consulta

[Abuelo7]

Hola Neftali.

Gracias por contestar.
He intentado hacer lo que me has indicado, pero creo que no lo hago bien, o mejor dicho que lo hago todo mal. Disculpa.

He intentado sustituir la linea de If por esto:

Código Delphi [-]
Try
    Memo1.Lines.Add(User + ' : '+Edit1.Text);
    Indice := -1;
    for i := 0 to sl.Count-1 do
     begin
     //AdoQuery1.Active := False;
     If SQL:= 'SELECT top 1 * FROM TABLA WHERE NUMERO='+ ADOQueryPreguntas.fieldByName('NUMERO').AsString then
      //If (ADOQueryPreguntas.Locate('PALABRA', sl[i],[loCaseInsensitive]))then
       begin
         Indice := i;
         break;
       end;//if
     end;//for

El error que me da es:
Type of expression must be BOOLEAN

Gracias por tu atención.

Manuel