مشكلة مع Combobox

[abdelmalek]

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

لقد واجهتني مشكلة مع ComboBox وهي :

انشائة مشروع جديد و وضعة عليه Combobox و Button1 و قمة بملئ Combobox ببعض الاسماء و اردت من هدا البرنامج عندا اختيار المستخدم اسم ويضغط على الزر تظهر له رسالة تعلمه مادا اختار وهدا الكود
الدي وضعته في الزر :

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
begin
  case ComboBox1.Text of
    'Ahmad' : ShowMessage('Ahmad');
    'Yacine': ShowMessage('Yacine');
    'Mohemmad' : ShowMessage('Mohemmad');
    'Djamel' : ShowMessage('Djamel');
    'Lotfi': ShowMessage('Lotfi');
  end;
end; 


ولكنه يظهر لي رسالة خطاء فماهو الحل ؟

التجربة في المرفق

بتوفيق للجميع