Выгрузить результат sql-запроса в Excel

[ЛисЁНЫШ]

Здравствуйте, очень нужна ваша помощь! проблема вот в чем.У меня есть таблица Excel состоит из 6 столбцов и около 100 строк и вот в каждую ячейку нужно внести данные, полученные с помощью sql-запроса. Но дело в том что получается слишком много запросов, начинает выдавать ошибку.
'Build
[Error] Unit10.pas(6971): Too many local constants. Use shorter procedures'

Незнаю что сделать, может нужно что другое придумать???

[Stilet]

нужно внести данные, полученные с помощью sql-запроса.

А точнее? Разве нельзя составить один запрос в мастере построения запросов Экзеля?
Делфи тут при чем?

[Grag]

ЛисЁНЫШ, твой sql-запрос откуда данные выгребает???

[ЛисЁНЫШ]

Вот кусок программы. Он очень большой поэтому написала только нчало. Принцип такой что выполняется один запрос и его результат записывается только в одну ячейку таблицы Excel.А ячеек очень много поэтому все запросы не помещаются в одной процедуре. Поэтому если кто знает, подскажите пожалуйста, что можно сделать в таком случае.

procedure TForm10.SpeedButton1Click(Sender: TObject);
var
  filtr: string;
  Ap: Variant;
begin
  Ap := CreateOleObject('Excel.Application');
  Ap.Workbooks.Add(GetCurrentDir+'\otchet.xls');

 {женский}
With form1.ADOQuery1 do
     begin
        Close;
     active:=false;
       SQL.Clear;
SQL.Add('Select * from UMERSHIE');
SQL.Add('WHERE POL LIKE'+#39+'%' + 'Ж' + '%'+#39);
Open;
        active:=true;
Ap.Range['G8']:=IntToStr(RecordCount);
end;

form1.ADOQuery1.Filtered:=false;
filtr:='';
filtr:= 'POL LIKE '+  #39 + 'Ж' + '%' + #39 +' and '+'MESTO_SM LIKE '+  #39 + 'В стационаре' + '%' + #39;
if length(filtr) > 0 then
begin
form1.ADOQuery1.Filter:= filtr;
form1.ADOQuery1.Filtered:=true;
Ap.Range['G9']:=IntToStr(form1.ADOQuery1.RecordCount);
end;

[Grag]

ЛисЁНЫШ, а что мешает сформировать, как результат sql-запроса, некий DataSet, который потом и можно перегнать в Excel таблицу?

[ЛисЁНЫШ]

извините, а можно поподробнее.=)

[soleil@mmc]

типа такого

select 
  cast('всего Ж' as varchar(100)) f_comment,
  count(1) f_cnt
from UMERSHIE
where POL LIKE '%Ж%'
union all
select 
  cast('всего Ж В стационаре' as varchar(100)) f_comment,
  count(1) f_cnt
from UMERSHIE
where POL LIKE '%Ж%'
   and MESTO_SM LIKE 'В стационаре%' 
union all
...

и дальше открываете датасет и листая его заполняете ваши ячейки в экселе

З.Ы.: пол, конечно, имеет много вариантов... или вы тоже по рыбкам специалист?