[yayis]

solo por si lo necesitas ....

rqry:=TADOQuery.Create(self);
rqry.Connection:=datamodule.server;
if rqry.Connection.Connected=true then
rqry.Connection.Connected:=false;