[AlexSku]

Код:

function dcomp(List: TStringList; Index1, Index2: Integer): Integer;
begin
  Result:= CompareDate(
    StrToDate(Copy(List[Index1], 1, Pos('=', List[Index1])-1)),
    StrToDate(Copy(List[Index2], 1, Pos('=', List[Index2])-1)));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  SLSort: TStringList;
begin
  SLSort:= TStringList.Create;
  SLSort.Assign(ValueListEditor1.Strings);
  SLSort.CustomSort(@dcomp);
  ValueListEditor1.Strings.Assign(SLSort);
  SLSort.Free;
end;