Const как поменять значение через Edit

const
      LAT = 'test1';  // массив латинских прописных букв
      RUS = 'test2';  // массив русских строчных букв
      LengthLAT = 2;          // кол-во латинских букв
      LengthRUS = 7;          // кол-во русских букв
      LengthNUM = 1;          // кол-во цифр 
      MAX_NUMBER = 9;         // максимальное цифровое число
    var
      i: integer;   // переменная для счетчика
      password: string;  // переменная для хранения
    begin

var
  LAT: string = 'test1';  // массив латинских прописных букв
  RUS: string = 'test2';  // массив русских строчных букв
  LengthLAT: integer = 2;          // кол-во латинских букв
  LengthRUS: integer = 7;          // кол-во русских букв
  LengthNUM: integer = 1;          // кол-во цифр 
  MAX_NUMBER: integer = 9;         // максимальное цифровое число
  i: integer;   // переменная для счетчика
  password: string;  // переменная для хранения
begin

var
  LAT,RUS: array of char;
  LengthLAT,LengthRUS,LengthNUM,MAX_NUMBER,i:integer;
  password: string;
begin

const
  {$WRITEABLECONST ON}
  const_value: Integer = 5;
  {$WRITEABLECONST OFF}
....
 const_value := IntToStrDef(Edit1.Text, 10);