[delphi] Sortowanie labeli , listbox'a lub stringgrid'a

 ListBox1.Items.Add("Not");

10 drużyna4
12 drużyna1
20 drużyna2
4 drużyna3

procedure TForm1.Button1Click(Sender: TObject);
begin
listbox1.Items.Clear;

listbox3.Items.Append(label1.Caption+'-'+edit1.Text);
listbox3.Items.Append(label2.Caption+'-'+edit2.Text);
listbox3.Items.Append(label3.Caption+'-'+edit3.Text);
listbox3.Items.Append(label4.Caption+'-'+edit4.Text);
listbox3.Items.Append(label5.Caption+'-'+edit5.Text);
listbox3.Items.Append(label6.Caption+'-'+edit6.Text);
listbox3.Items.Append(label7.Caption+'-'+edit7.Text);
listbox3.Items.Append(label8.Caption+'-'+edit8.Text);
end;

10-drużyna4
12-drużyna1
20-drużyna2
4-drużyna3

procedure TForm1.Button1Click(Sender: TObject);
begin
listbox1.Items.Clear;

listbox3.Items.Append(label1.Caption+'-'+edit1.Text);
listbox3.Items.Append(label2.Caption+'-'+edit2.Text);
listbox3.Items.Append(label3.Caption+'-'+edit3.Text);
listbox3.Items.Append(label4.Caption+'-'+edit4.Text);
listbox3.Items.Append(label5.Caption+'-'+edit5.Text);
listbox3.Items.Append(label6.Caption+'-'+edit6.Text);
listbox3.Items.Append(label7.Caption+'-'+edit7.Text);
listbox3.Items.Append(label8.Caption+'-'+edit8.Text);
end;

begin

 if ((strtoint(label1.Caption)>strtoint(label2.Caption))and
    (strtoint(label1.Caption)>strtoint(label3.Caption))and
    (strtoint(label1.Caption)>strtoint(label4.Caption))and
    (strtoint(label1.Caption)>strtoint(label5.Caption))and
    (strtoint(label1.Caption)>strtoint(label6.Caption))and
    (strtoint(label1.Caption)>strtoint(label7.Caption))and
    (strtoint(label1.Caption)>strtoint(label8.Caption))) then
 begin
 showmessage(edit1.Text+' '+label1.caption) ;
 end;
begin

 if ((strtoint(label1.Caption)=strtoint(label2.Caption))and
    (strtoint(label1.Caption)>strtoint(label3.Caption))and
    (strtoint(label1.Caption)>strtoint(label4.Caption))and
    (strtoint(label1.Caption)>strtoint(label5.Caption))and
    (strtoint(label1.Caption)>strtoint(label6.Caption))and
    (strtoint(label1.Caption)>strtoint(label7.Caption))and
    (strtoint(label1.Caption)>strtoint(label8.Caption))) then
 begin
 showmessage(edit1.Text+' '+label1.caption+#10#13+edit2.Text+' '+label2.Caption) ;
 end;

enum TTypeSort {tsIncrease, tsDecrease};
int __fastcall CustomSortIncrease(TStringList *Lista, int idx1, int idx2)
{
 String cTemp1 = Lista->Strings[idx1];
 String cTemp2 = Lista->Strings[idx2];
 return CompareText(cTemp1, cTemp2);
}
int __fastcall CustomSortDecrease(TStringList *Lista, int idx1, int idx2)
{
 String cTemp1 = Lista->Strings[idx1];
 String cTemp2 = Lista->Strings[idx2];
 return -CompareText(cTemp1, cTemp2);

procedure TForm1.RadioButton16Click(Sender: TObject);
var
i,j : integer;
begin
StringGrid1.RowCount:=koniec+1;

For J:=1 To koniec-2 Do // normalnie jest -1 ale ja dodałem pomocniczą na koniec
  For I:=1 To koniec-2 Do
    If StringGrid1.cells[1,i]>StringGrid1.cells[1,i+1] Then
      Begin
        StringGrid1.Rows[koniec+1]:=StringGrid1.Rows[i];
        StringGrid1.Rows[i]:=StringGrid1.Rows[i+1];
        StringGrid1.Rows[i+1]:=StringGrid1.Rows[koniec+1];
       End;

StringGrid1.RowCount:=koniec;
//Przykład sortowania
{
For J:=1 To n-1 Do
  For I:=1 To n-1 Do
    If Tab[I]>Tab[I+1] Then
      Begin
        Pom:=Tab[I];
        Tab[I]:=Tab[I+1];
        Tab[I+1]:=Pom;
      End;
} end;

  public
      koniec:  integer;
    { Public declarations }