textdatei sortieren

[herrentor]

hab das jetzt mal versucht. programm macht auch keine zicken, sortiert aber auch nicht.

Delphi-Quellcode:

if pos('['+Statusbar1.Panels.Items[1].Text+']', sl1.Text)=0 then
       begin
       writeln(text_datei,'['+StatusBar1.Panels.Items[1].Text+']');
       end else
       begin
       m:=sl1.IndexOf('['+StatusBar1.Panels.Items[1].Text+']');

       for l:=sl1.IndexOf('['+StatusBar1.Panels.Items[1].Text+']')-1 to m do
           sl1.sorted:=true;

       end;

in StatusBar1.Panels.Items[1] läuft das datum.