مشكلة مع Combobox

[abdelmalek]

بارك الله فيكم الله ينوركم إخواني الكرام على الردود و الحلول المتنوعة شكرا من قلبي ......

لقد قمت بتصحيح الكود وهو الان يعمل جيدا

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
begin
  case ComboBox1.ItemIndex of
    -1: ShowMessage('Ahmad');
    0: ShowMessage('Yacine');
    1: ShowMessage('Djamel');
    2: ShowMessage('Mohemmad');
    3: ShowMessage('Lotfi');
  end;
end; 


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