Ordenar alfabeticamente un ComboBox

[[Caral]]

Hola

Código Delphi [-]
  ADOQuery9.SQL.Text := 'SELECT TuTabla.NoSub FROM TuTabla ORDER BY TuTabla.NoSub';
   ADOQuery9.Active := True;
   While not ADOQuery9.Eof do
   begin
      ComboBox1.Items.Add(ADOQuery9.Fields[0].Text);
      ADOQuery9.Next;
   end;

Saludos