ADOQuery1.ConnectionString :=
'Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=Northwind;Data Source=localhost';
ADOQuery1.SQL.Text := 'SELECT TOP 3 * FROM CUSTOMERS FOR XML AUTO';
ADOQuery1.Open;
SHOWMESSAGE(ADOQUERY1.Fields[0].AsString);