Печать заданной области в Delphi 7

 procedure TForm1.Button3Click(Sender: TObject); 
var 
  arr: TIntSet; 
  i: integer; 
begin 
  arr := []; 
  for i := 0 to CheckListBox1.Items.Count - 1 do 
    if CheckListBox1.Checked[i] then 
      include(arr,i); 
      if arr = [] then 
      begin 
        MessageBox(handle,'Необходимо выбрать хотя бы один пункт!','Ошибка',0); 
        Exit; 
      end; 
 
      try 
        PR_ExportToExcel(ClientDataSet1,arr); 
      except 
        MessageBox(handle,'Возникла неизвестная ошибка!','Ошибка',0); 
      end; 
end;