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
If SQL:= 'SELECT top 1 * FROM TABLA WHERE NUMERO='+ ADOQueryPreguntas.fieldByName('NUMERO').AsString then
begin
Indice := i;
break;
end; end;
El error que me da es:
Type of expression must be BOOLEAN
Gracias por tu atención.
Manuel