[Lazarus] errors: Upper bound of case range is less than lower bound and duplicate case label

[Eric Kom]

Good afternoon all,

Please after write the above procedure, I received the errors: Upper 
bound of case range is less than lower bound and duplicate case label

procedure DisplayGrade(Sender: TObject);
var
   grade    : String;
   tuitionFee: String;
   gradeSelected: String;
begin
    gradeSelected := cbbGradeList.Items[cbbGradeList.ItemIndex];
    case gradeSelected of
         '12'..'12': tuitionFee := '14500.00';
         '8'..'11' : tuitionFee := '13500.00';
         '1'..'7'  : tuitionFee := '8000.00';
    else
         tuitionFee := '850.00';
    end;

end;

-- 
Kind Regards

Eric Kom

System Administrator & Programmer - Metropolitan College
  _________________________________________
/ You are scrupulously honest, frank, and \
| straightforward. Therefore you have few |
\ friends.                                /
  -----------------------------------------
    \
     \
         .--.
        |o_o |
        |:_/ |
       //   \ \
      (| Kom | )
     /'\_   _/`\
     \___)=(___/

2 Hennie Van Till, White River, 1240
Tel: 013 750 2255 | Fax: 013 750 0105 | Cell: 078 879 1334
erickom at kom.za.net | erickom at metropolitancollege.co.za
www.kom.za.net | www.kom.za.org | www.erickom.co.za

Key fingerprint: 513E E91A C243 3020 8735 09BB 2DBC 5AD7 A9DA 1EF5