[Страдалецъ]

Можно конечно через запрос, а можно и так:

Код:

with TStringList.Create
 do begin
    Sorted := True;
    Text := ComboBox1.Items.Text;
    ComboBox1.Items.Text := Text
    end;

но правильнее вообще делать все это с помощью DBLookupComboBox