Listbox edite ekle-seçili elemanı sil

Listbox,label,edit eklerek, listbox’ta seçilen elemanı edite yazdıran ve seçilen elemanı silen 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:=ListBox1.Items[ListBox1.ItemIndex];

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

ListBox1.Items.Delete(ListBox1.ItemIndex);

end;

end.