Ошибки во время исполнения программы

const
  EnLetters: set of Char = ['a'..'z', 'A'..'Z'];
  Numbers: set of Char = ['0'..'9'];
var
  counter, CountOfNumInPw: Integer;
  EnLetter, Number: Char;
begin
  Result := '';
  if ChkCheckBoxState(cbEn) then
    for counter := 1 to pwLength do
    begin
      EnLetter := '0';
      while not (EnLetter in EnLetters) do
        EnLetter := chr(Random(58) + 65);
      Result := Result + EnLetter
    end;
  if ChkCheckBoxState(cbNum) then // Отсюда начинаются ошибки
    CountOfNumInPw := (pwLength * 40) div 100;
    for counter := 1 to CountOfNumInPw do
    begin
      Number := 'a';
      while not (Number in Numbers) do
        Number := chr(Random(10) + 48);
      Result[Random(Length(Result)+1)]:= Number
    end
end;

const
  EnLetters: set of Char = ['a'..'z', 'A'..'Z']; //Задается множество англ.букв
  Numbers: set of Char = ['0'..'9']; // и символов
var
  counter, CountOfNumInPw: Integer; //counter переменная для счета цикла, CountOfNumInPw - количество цифр в строке
  EnLetter, Number: Char;           //переменные которые будут содержать вставляемые символы
begin                                   //EnLetter - букву, Number - соответственно цифру
  Result := '';                         //Инициализируем результат
  if ChkCheckBoxState(cbEn) then        //Функция ChkCheckBox возращает логический результат проверки состояния флажка
                                            //cbEn.State.cbChecked
    for counter := 1 to pwLength do         //Цикл заполнения строки
    begin
      EnLetter := '0';                      { Каждый раз генерируется новая буква и добавляется  
      while not (EnLetter in EnLetters) do      к результату
        EnLetter := chr(Random(58) + 65);
      Result := Result + EnLetter           }
    end;
  if ChkCheckBoxState(cbNum) then           // Отсюда начинаются ошибки
    CountOfNumInPw := (pwLength * 40) div 100;  //Узнаем 40 процентов от длины строки
    for counter := 1 to CountOfNumInPw do   //И заполняем эти 40% числами
    begin                                   //При чем, положение чисел в строке опять же генерируется 
      Number := 'a';                            //рандомно
      while not (Number in Numbers) do
        Number := chr(Random(10) + 48);
      Result[Random(Length(Result)+1)]:= Number
    end
end;

  Result[Random(Length(Result)+1)]:= Number

const
  EnLetters: set of Char = ['a'..'z', 'A'..'Z'];
  Numbers: set of Char = ['0'..'9'];
var
  counter, CountOfNumInPw, I : Integer;
  EnLetter, Number: Char;
begin
  Result := '';
  if ChkCheckBoxState(cbEn) then
    for counter := 1 to pwLength do
    begin
      EnLetter := '0';
      while not (EnLetter in EnLetters) do
        EnLetter := chr(Random(58) + 65);
      Result := Result + EnLetter
    end;
 
  if ChkCheckBoxState(cbNum) then
    CountOfNumInPw := (pwLength * 40) div 100;
    for counter := 1 to CountOfNumInPw do
    begin
      Number := 'a';
      while not (Number in Numbers) do
        Number := chr(Random(10) + 48);
      I := Random(Length(Result)) + 1;
      Result:= Copy(Result, 1, I - 1) +  Number + Copy(Result, I, Length(Result));
    end;
end;

function ChkCheckBoxState(cb: TCheckBox): Boolean;
begin
  if (cb.State = cbChecked) then
    Result := True
  else
    Result := False
end;

  if cbNum.State = cbChecked then
    CountOfNumInPw := (pwLength * 40) div 100;

function ChkCheckBoxState(cb : TCheckBox) : Boolean;
begin
  Result := cb.Checked;
end;