procedure ADOCheck;
var
ado:tadoquery;
begin
ado:=tadoquery.create(nil);
ado.commandtimeout:=30;
ado.connectionstring:=Provider=MSDASQL.1;Password='sa';Persist Security Info=True;User ID=sa;Data Source=local';
ado.sql.add('use pubs select * from authors');
ado.open;
while not ado.eof do
begin
showmessage(ado.fields[0].asstring);
ado.next;
end;
ado.close;
end;