Обработка Try.Except при загрузке из эксель файла

function ExcelToStringGrid(AGrid:TStringGrid;OpenExelDlg:TOpenDialog): Boolean;
 const 
    xlCellTypeLastCell = $0000000B; 
 var 
    x, y, k, r: Integer;
    Data,Range:integer;
    Error:Boolean;
    Handle:HWND;
 begin 
    Result := False; 
    // Создаем объект Excel-OLE
    XLApp := CreateOleObject('Excel.Application'); 
    try
      // Спрятать Excel
      XLApp.Visible := False; 
      // Открыть Рабочую книгу
      XLApp.Workbooks.Open(OpenExelDlg.FileName);
      // Лист
      ExSheet := XLApp.Workbooks[1].WorkSheets[1];
     ExSheet.Cells.SpecialCells(xlCellTypeLastCell, EmptyParam).Activate;
      // Получить значение последний строки
      x := XLApp.ActiveCell.Row;
       y:=3; //строка
      // Установить колонку и столбец Stringgrid'а.
      AGrid.RowCount := x;
      // Присвоение Variant ассоциативной WorkSheet'ому значению
     ExRange := XLApp.Range['A1', XLApp.Cells.Item[X, 3]].Value;
      // Установить цикл для заполнения TStringGrid
        for k:=1 to x do
        for r := 1 to 3 do
         begin
          Try
          Data:=StrToInt(EXRange[K,R]);
          except On EConvertError do
           begin
           //  MessageBox(0,'В исходных данных ошибка.Например:буква.Необходимо исправить исходные данные и попытаться загрузить их снова.Исправить ошибку?','Ошибка данных',MB_YESNO)=ID_YES;;
          ShowMessage('Ошибка');
          Exit;
          end;  //except
           end;//try
 
          AGrid.Cells[(r), (k)] := ExRange[K, R]; //переноси в грид данные из экселя
          AGrid.RowCount := k + 1;
        end;
          // Очистка матрицы Delphi Variant
      ExRange := Unassigned;
    finally
      // Выход Excel
      if not VarIsEmpty(XLApp) then 
      begin 
        XLApp.Quit;
        XLAPP := Unassigned;
        ExSheet := Unassigned;
        Result := True;
      end;
       end;
 end;

var Formula_Val:variant
    Formula_Text: string;
begin
...
   MyCell:=Sheet.Cells[1,1];   // определяю ячейку для занесения формулы
   MyCell.Value:=Formula_Text; // Заносим формулу
   Formula_Val:=MyCell.Value;  // Вычисляем формулу
   if (VarIsFloat(Formula_Val)=false) or (VarIsNumeric(Formula_Val)=false) then ShowMessage('Ошибка в формуле')
   else ...

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);//запрос на выход
begin
  CanClose:=MessageBox(Handle,'Выйти из программы?','Выйти?',MB_YESNO)=ID_YES;
 if CanClose=false then Form1.SetFocus;
 if CanClose=true then halt;

  if MessageDlg('Вы уверены, что хотите выйти из приложения?',
    mtConfirmation, [mbYes, mbNo], 0) = mrYes then  Close;