try SRList.Assign(ComboBox1.Items); SRList.CustomSort(CompareDates); ComboBox1.Items.Assign(SRList); finally SRList.Free end;