Ежедневник, сортировка по дате

unit AllNight;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Button2: TButton;
    Button3: TButton;
    MonthCalendar2: TMonthCalendar;
    ListBox1: TListBox;
    Button4: TButton;
    Button5: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
 
    procedure MonthCalendar2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
 
  private
    { Private declarations }
  public
 
    i:integer;
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
listbox1.items.add(inttostr(i+1)+'.'+edit1.Text);
 
  inc(i);
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
listbox1.Items.Clear;
i:=0;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
listbox1.DeleteSelected;
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
listbox1.Items.SaveToFile('Записи.txt');
end;
 
procedure TForm1.Button5Click(Sender: TObject);
begin
listbox1.Items.LoadFromFile('Записи.txt');
 
end;
 
procedure TForm1.MonthCalendar2Click(Sender: TObject);
begin
listbox1.Items.Add(datetostr(monthcalendar2.date));
listbox1.Items.Add(inttostr(i+1)+'.'+edit1.Text+#13#10+#13#10);
inc(i);
 
end;
 
end.