При выгрузке из Excel в Delphi возникает ошибка: ole error 800a03ec

var
  Ap : Variant;
  Nomer,metka:integer;
  Mas: array[1..5] of AnsiString;
   Rows, Columns, i,RNum: Integer;
begin
randomize;
metka:=0;// показывает записалось главное слово в перевод или нет
i:=0;
try
Ap := CreateOleObject('Excel.Application');
Ap.Workbooks.Open(ExtractFilePath(Application.ExeName)+'Japanese.xlsx',0,True);
Rows := ap.ActiveSheet.UsedRange.Rows.Count;
Columns := ap.ActiveSheet.UsedRange.Columns.Count;
finally
if rows=0 then showmessage('Подключиться к базе не удалось')
else    showmessage('Подключение к базе удалось');
 
 
 label3.Caption:=  inttostr(Rows);
nomer:=random(rows);// индекс главного слова
for i := 1 to 5 do
  mas[i]:='';
 
 
  for I := 1 to 5 do
            begin
                case i of
                1:begin //////////////////////////////////
                    if metka=0 then
                    begin
                      RNum:=random(4);
                      if RNum=0 then
                        begin mas[i]:=Ap.Range['B'+inttostr(nomer)]; metka:=1; showmessage('Case №1, metka= '+inttostr(metka)+ ' шанс срабатывания, слово: '+mas[i]); end
                      else
                        begin mas[i]:=Ap.Range['B'+inttostr(random(rows))]; showmessage('Case №1, metka= '+inttostr(metka)+' '+mas[i]); end;
                      end
                    else
                      begin
                        mas[i]:=Ap.Range['B'+inttostr(random(rows))];
                      end;
                    end; ///////////////////////////////
                2: begin ///////////////////////////////
                      if metka=0 then
                      begin
                        RNum:=random(4);
                         if RNum=0 then
                          begin
                            mas[i]:=Ap.Range['B'+inttostr(nomer)]; metka:=1; showmessage('Case №2, metka= '+inttostr(metka)+' '+mas[i]);
                          end
                         else
                          begin
                           mas[i]:=Ap.Range['B'+inttostr(random(rows))] ; showmessage('Case №2, metka= '+inttostr(metka)+ ' шанс срабатывания, слово: '+mas[i]);
                          end;
                      end
                      else
                      begin
                        mas[i]:=Ap.Range['B'+inttostr(random(rows))];
                      end;
                  end;////////////////////////////////
 
                3:begin
                    if metka=0 then
                    begin
                      RNum:=random(4);
                      if RNum=0 then
                        begin
                          mas[i]:=Ap.Range['B'+inttostr(nomer)]; metka:=1; showmessage('Case №3, metka= '+inttostr(metka)+ ' шанс срабатывания, слово: '+mas[i] );
                        end
                      else
                        begin
                          mas[i]:=Ap.Range['B'+inttostr(random(rows))]; showmessage('Case №3, metka= '+inttostr(metka)+' '+mas[i]);
                        end;
                    end
                    else
                      begin
                        mas[i]:=Ap.Range['B'+inttostr(random(rows))];showmessage('Case №3, metka= '+inttostr(metka)+' '+mas[i])
                      end;
                  end;
 
                4:begin
                    if metka=0 then
                    begin
                      RNum:=random(4);
                      if RNum=0 then
                        begin
                          mas[i]:=Ap.Range['B'+inttostr(nomer)]; metka:=1; showmessage('Case №4, metka= '+inttostr(metka)+ ' шанс срабатывания, слово: '+mas[i]);
                        end
                      else
                      begin
                        mas[i]:=Ap.Range['B'+inttostr(random(rows))]; showmessage('Case №4, metka= '+inttostr(metka)+' '+mas[i])
                      end;
                    end
                    else
                      begin
                        mas[i]:=Ap.Range['B'+inttostr(random(rows))]; showmessage('Case №4, metka= '+inttostr(metka)+' '+mas[i])
                      end;
                  end;
                5:begin if (mas[5]='') and (metka=0) then
                        begin
                          mas[i]:=Ap.Range['B'+inttostr(nomer)]; showmessage('Case №5, metka= '+inttostr(metka)+' '+mas[i]);
                        end
                      else
                       begin
                        mas[i]:=Ap.Range['B'+inttostr(random(rows))]; showmessage('Case №55, metka= '+inttostr(metka)+' '+mas[i]);
                       end;
                       end;
             end
 
 end;
  end;
 
 
metka:=0;
for I := 1 to 5 do
combobox1.Items.Add(mas[i]);
 
Label1.Caption := Ap.Range['A'+inttostr(nomer)];
 
 
 
 
end;