// sort by Name - case insensitive and by BithDate - descending
ADQuery1.Indexes[0].Fields := 'Name:N;BirthDate:D';