Listbox nach Datum sortieren

[Codix32]

Hi Leute,

ich raffs nicht. Habe ein Programm, das in einer Listbox Text mit vorgestelltem Datum ausgibt.

Meine Funktionen können die Listbox auch sortieren und das Ganze als Text Datei abspeichern.
Das Problem ist, daß ich das Programm jedesmal schliesen und neustarten muß, damit das Sortieren funktioniert. Wird nach dem Start in die Listbox mehr als ein Eintrag gemacht und mehr als einmal sortiert, steht der neue Item am Anfang der Liste.

Das Proggi sortiert das Datum ausgehend nach den vergangenen Tagen seit 1.01.1900 bis zum eingegebenen Datum. Die Tage stehen kurzfristig am Anfang des Items werden dann mit 'Listbox.sorted' sortiert, danach werden die Tage sofort entfernt, so daß das Datum am Anfang des Items steht:

Beispiel:

07334 31.01.1920 Blalbalbla...
14014 16.05.1938 Tusnelda Geburtstag

danach steht in der Liste:

31.01.1920 Blabalbla
16.05.1928 Tusnelda Geburtstag

Bei Übergabe der aktuellen Jahreszahl in die Funktion sortiert diese nach Monaten und Tagen.

Wo liegt der Fehler? Warum muß ich das Proggi vor dem Sortieren neu starten?

In 'onCreate' wird die Datei geladen:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
BorderIcons := [biSystemmenu];
Form1.caption:='Zeitereignisse um den heutigen -->  '+DatetoStr(Date);
Statusbar1.panels[0].text:='Datum: '+ DatetoStr(Date);
Statusbar1.panels[1].text:='Woche: '+ InttoStr(WeekOfYear(Date));
Statusbar1.panels[2].text:='Jahrestag: '+ TagdesJahres;
Listbox1.itemIndex:=0;
LADE;                   // <-Lade die Datei in Liste
aktuell;
end;

Hier wird ein neuer Item eingetragen, eigentlich schon sortiert und gespeichert:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var InputString:String;
    temp:String;
begin
  InputString:= InputBox('Eingabedialogfenster', 'Datum eingeben, dann 3 Leerzeichen, dann Text', '');
if (IstString_einDatum(DatetoStr(StrtoDate(copy(Inputstring,1,10))))) then
 begin
    temp:= DatetoStr(StrtoDate(copy(Inputstring,1,10)));
    Inputstring:=temp+copy(Inputstring,11,length(Inputstring));
    Listbox1.items.add(Inputstring);
//    Listbox1:=(sortiereListe(Listbox1));
aktuell;
    Listbox1.items.SaveToFile('Uebersicht.txt');
 end;
end;

Hier das Sortieren über einen Button:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
begin
    Listbox1:=(sortiereListe(Listbox1));
end;

Listbox.sorted wird in der 'function TForm1.sortiereListe(L:TListbox):TListbox;' auf 'True' gesetzt.