Несколько запросов в одном ADOQuery1

[XKsandrX]

Всем привет!!! Сразу прошу прощения если написал не в ту тему...

У меня есть форма на ней компоненты ADOQuery, DataSource, GridEh и RadioGroup c 6-Ю ItemIndex
Устонавливаю точку в первый Index
(далее текст принадлежащий к этой точке)
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
if radiogroup1.ItemIndex=0 then
ADOQuery1.Close;
ADOQuery1.SQL.Text:='set dateformat dmy';
ADOQuery1.SQL.Text:=SQL запрос;
ADOQuery1.Open;
все работает отлично все данные в Grid показывает замечательно

Далее мне необходимо установить точку во второй Index тем самым очистить Grid и вывести новый запрос через тот же ADOQuery1

if radiogroup1.ItemIndex=1 then
ADOQuery1.sql.clear;
ADOQuery1.Close;
ADOQuery1.SQL.Text:='set dateformat dmy';
ADOQuery1.SQL.Text:=SQL следующий запрос;
ADOQuery1.Open;

Но облом не работает точнее работает выводит значения первого запроса подскажите плиз что делать Я новичек в Делфи, но стараюсь потихоньку...

Огромное спасибо заранее!!!!!

[Kotofff]

А как на счет нужной темы для вопроса ???
К примеру "БД в Delphi", а не общие вопросы ... !!
Учимся не сорить на форуме с первых сообщений !!

[Akemi]

if radiogroup1.ItemIndex=0 then
begin
ADOQuery1.Active:=false;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('текст запроса 1');
ADOQuery1.Active:=true;
end;

if radiogroup1.ItemIndex=1 then
begin
ADOQuery1.Active:=false;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('текст запроса 2');
ADOQuery1.Active:=true;
end;

[XKsandrX]

Сообщение от Akemi

if radiogroup1.ItemIndex=0 then
begin
ADOQuery1.Active:=false;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('текст запроса 1');
ADOQuery1.Active:=true;
end;

if radiogroup1.ItemIndex=1 then
begin
ADOQuery1.Active:=false;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('текст запроса 2');
ADOQuery1.Active:=true;
end;

Спасиб все работает отлично!!!!!