Desplazar un TComboBox

[Angel.Matilla]

Buenos días. Aquí estoy dando la paliza otra vez.

En un formulario tengo un TComboBox que cargo al crearlo a partir de este query:

Código SQL [-]
SELECT Nombre, Codigo FROM Provincia ORDER BY Nombre, Codigo

y la carga la hago así:

ComboBox1->Items->Clear();
for (; !Query->Eof; Query->Next())
     ComboBox1->Items->AddObject(Query->FieldByName("Nombre")->AsString, (TObject *)Query->FieldByName("Codigo")->AsInteger);

Mi pregunta es esta: ¿Cómo puedo hacer al presentar el formulario que en ese TComboBox se presente un valor concreto, por ejemplo el correspondiente al código 45? He estado mirando y no veo como hacerlo.