Se me ocurre lo siguiente:
var
lFinal:Boolean;
lFinal:=False;
//antes de empezar la consulta lanzar un Timer
al Acabar la consulta
lFinal:=True;
Si el evento del Timer lo ponemos al tiempo máximo de espera;
entonces:
if lFinal = False then.....
A ver si te puede servir la idea.
Un Saludo.
|