Listbox Sıralama

Listbox ve buton ekleyerek,listbooxa girilen bilgileri butona basıldığında sıralayan programın kodu=

procedure TForm1.FormCreate(Sender: TObject);

begin

ListBox1.Items.Add('Ankara');

ListBox1.Items.Add('İstanbul');

ListBox1.Items.Add('İzmir');

ListBox1.Items.Add('Kırıkkale');

ListBox1.Items.Add('Muğla');

ListBox1.Items.Add('Samsun');

ListBox1.Items.Add('Diyarbakır');

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

ListBox1.Sorted:=TRUE;

end;

end.