Listbox Toplam Eleman Sayısı

listbox,label,edit eklyerek,listbox’ta toplam eleman sayısı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');

ListBox1.Items.Add('2.sınıf');

ListBox1.Items.Add('Normal öğrenim');

end;

procedure TForm1.ListBox1Click(Sender: TObject);

begin

edit1.Text:=IntToStr(ListBox1.Count);

end;

end.