procedure SortVLE;
function MyCompare(List: TStringList; Index1, Index2: Integer): Integer;
begin
  Result := AnsiCompareStr(List.ValueFromIndex[Index2], List.ValueFromIndex[Index1])
end;

var
  fSL : TStringList;
begin
  fSL := TStringList.Create;
  try
    fSL.Text := SeoController.ValueListEditor1.Strings.Text;
    fSL.CustomSort(@MyCompare);
    SeoController.ValueListEditor1.Strings.Text := fSL.Text;
  finally
    fSL.Free;
  end
end;