Simplificar el uso de if al usar RadioGroup

[[Caral]]

Hola

Código Delphi [-]
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;

Saludos