сортировка в ListBox1

[Virus191288]

извините может кто-нибудь помочь?
на форме есть ListBox1 Edit3 и еще куча всего но это неважно...
при открытии вот так добавляются строки в ListBox1

Folder := 'base\';
FillFileList(Folder, ListBox1.Items);

но в Edit3 идет оценка мне нужно както рассортировать фаилы по оценке в ListBox1
вот так идет сохранение фаила

s1 := Edit1.Text;
s2 := Edit3.Text;
s3 := RichEdit1.Text;
s4 := Memo2.Text;

if CheckBox1.Checked=false then s6:='0';
if CheckBox1.Checked=True then s6:='1';

s1 := StringReplace(s1, #13#10, #5, [rfReplaceAll]);
s2 := StringReplace(s2, #13#10, #5, [rfReplaceAll]);
s3 := StringReplace(s3, #13#10, #5, [rfReplaceAll]);
s4 := StringReplace(s4, #13#10, #5, [rfReplaceAll]);
s6 := StringReplace(s6, #13#10, #5, [rfReplaceAll]);

l := TStringList.Create;
l.Add(s1+#8+s2+#8+s3+#8+s4+#8+s6);
l.SaveToFile('base\' + Edit1.Text +'.sst');
l.Free;

если кто-нибудь поможет заранее спасибо.....

[Ntlegend]

if CheckBox1.Checked=false then s6:='0';
if CheckBox1.Checked=True then s6:='1';

красивее написать так

if CheckBox1.Checked=True 
   then s6:='1'
   else s6:='0';

а всегото.. тока посоветовал как красивее написать

[Virus191288]

Ntlegend да это неважно)))код потом поправлю, мне бы как нибудь с сортировкой разобраться...

[Djem1991]

может я чего не понял,но для сортировки у листбокса есть свойство

Sorted:=True

[Virus191288]

Djem1991 нет так не получится))) я уже разобрался.... спасибо Ntlegend