التعامل مع الجمل الشرطية في دلفي

[ferrero]

السلام عليكم ورحمة الله وبركاته

اخواني انا عضو مبتدي جيت انهل من بحركم الطامي

طبقت الطريقة الاولى وما ضبطت ممكن احد يشوف وين المشكلة.

PHP كود :

var
  i: integer;
begin
  i := StrToInt(Edit1.text);
  case i of
    0 .. 10:
      Shape1.Brush.color := clred;
    11 .. 15:
      Shape1.Brush.color := clyellow;
    16 .. 20:
      Shape1.Brush.color := cllime;
  end;