Hola no he trabajado con componentes ado la verdad, uso zeos pero creo que podria ser algo asi. creo que son parecidas estas sentencias en los dos componentes.
Código Delphi
[-]adoquery.sql.text :='sentencia';
adoquery.open;
if not adoquery.eof then cadena:=adoquery.fields[0].asstring;
adoquery.close;
espero te sirva de algo