Delphi : Trier une ValueListEditor

 procedure ValueListEditor_SORT(VLE: TValueListEditor);
    var
      Temp: TStringList; { Uses System.Classes }
    begin
      Temp := TStringList.Create;
      try
        Temp.Assign(VLE.Strings);
        Temp.Sort;
        VLE.Strings.Assign(Temp);
      finally
        Temp.Free;
      end;
    end;

procedure TForm1.SortByVAlueClick(Sender: TObject);
{
  http://www.progtown.com/topic1340270-tvaluelisteditor-and-on-value.html
}
  function ValueSort(List: TStringList; Index1, Index2: Integer): Integer;
  begin
    result := AnsiCompareText(List.ValueFromIndex[Index1],
      List.ValueFromIndex[Index2]);
  end;

begin
  // ValueListEditor_SortByLength(ValueListEditor_Ligne1texte);

  TValueListStrings(ValueListEditor_Ligne1texte.Strings).CustomSort(@ValueSort);

end;