cur_lvl, new_lvl: integer;
    skills, abilitys: integer;
    
        cur_lvl := StrToInt(Edit1.Text);
        new_lvl := StrToInt(Edit2.Text);        
        abilitys := (cur_lvl - new_lvl) * -1;
        skills  := abilitys * 8;