Listbox seçilen elemanın sırası

listbox,label,edit eklyerek,listbox’ta seçilen elemanın sırasını edite yazdıran kod=

procedure TForm1.FormCreate(Sender: TObject);
begin
ListBox1.Items.Add('Elif');
ListBox1.Items.Add('Kurtoğlu');
ListBox1.Items.Add('Bilgisayar Programcılığı');
ListBox1.Items.Add('Kırıkkale');
ListBox1.Items.Add('Meslek Yüksek Okulu')
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
 edit1.Text:=IntToStr(ListBox1.ItemIndex+1);
end;
end.