No logro llenar la ComboBox (TIBQuery Interbase)

[Zucra]

Hola, bueno mi pregunta es la siguiente, tengo un ComboBox que quiero llenar con los datos de una tabla de la base de datos que esta hecha en InterBase para eso utilizo un TIBQuery, creo que tengo todo bien hecho, pero cuando ejecuto el programa, no me muestra nada en el combobox, aca les dejo el codigo a ver si me pueden decir en que le estoy errando.

Código Delphi [-]

//aca es donde llenaria el ComboBox

procedure TFormClientes.ModClienteClick(Sender: TObject); //ModCliente es mi ComboBox
begin
    cajaCuenta.SelClienteNombre.Close;      //SelClienteNombre es el TIBQuery
    cajaCuenta.SelClienteNombre.ParamByName('nombre').AsString:=ModCliente.Text;
    cajaCuenta.SelClienteNombre.Open;
    NC.Text:=cajaCuenta.SelClienteNombre.Fields[1].AsString;
    DC.text:=cajaCuenta.SelClienteNombre.Fields[2].AsString;
    TC.text:=cajaCuenta.SelClienteNombre.Fields[3].AsString;
    MC.text:=cajaCuenta.SelClienteNombre.Fields[4].AsString;
end;


//Y aca el TIBQuery visto como texto

object SelClienteNombre: TIBQuery
    Database = Caja.Base
    Transaction = Caja.IBTransaction1
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'Select * From Cliente where nombre = :nombre')
    Left = 320
    Top = 216
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'nombre'
        ParamType = ptUnknown
      end>
  end

Espero que puedan ayudarme, y si necesitan mas datos, estare por aca para ponerlos

Gracias

[MartinS]

Hola: Lo que debes hacer es un bucle por el ibquery llenado los correspondientes comboBox

Código Delphi [-]
TuCombo.Clear  // Vacia el combo
        tuQuery.First;
        While Not SelClienteNombre.Eof do   // mientras no se termine la consulta
         Begin
             TuCombro.Items.Add(Valor_a_agregar)
             TuQuery.Next  // Siguiente
         end;

espero haberte entendido.-

Saludos