Проблема в выгрузкой результата ADOQuery в txt

[studentw124]

Здравствуйте! У меня проблема...! Есть процедура:
procedure TForm1.Button9Click(Sender: TObject);
begin
ADOQuery1.Active:=false;
ADOQuery1.SQL.Add('DECLARE @docint int DECLARE @Doctext nvarchar(max) SET @Doctext =N''' + Edit25.Text + ''' EXEC sp_xml_preparedocument @docint OUTPUT, @Doctext');
ADOQuery1.SQL.add('INSERT Material SELECT * FROM OPENXML(@docint, ''/exportdatabase/material'', 2) WITH (name nchar(20), marka nchar(20),iadstandart nchar(20) )');
ADOQuery1.Active:=true;
end;
Перевода таблицы в xml. Но я не знаю как результат запроса ADOQUERY1 в txt.Пробовал через Adoquqry.SaveToFile() ничеого не получилось.Подскажите пожалуйста что нибудь!