var
i: Integer;
comp: TComponent;
begin
for i := 1 to 2 do begin
comp := FindComponent('radiogroup' + IntToStr(i));
if Tradiogroup(comp).ItemIndex > -1 then
begin
with ADOQuery1 do
begin
Close;
SQL.Text:= 'SELECT * FROM MITABLA WHERE AÑO = :PANIO AND MES=:PMES';
Parameters.ParamByName('PANIO').Value:= RadioGroup1.Items[RadioGroup1.ItemIndex];
Parameters.ParamByName('PMES').Value:= RadioGroup2.Items[RadioGroup2.ItemIndex];
Open;
end;
Myreport.ShowReport(true);
end
else
showmessage('elija por lo menos un parametro para el reporte');
end;