Recorrer tabla y asignar Items a comboBox

[DANIEL1818]

Hola foro, espero que anden bien!

Esta vez lo que necesito es recorrer una tabla de productos y asignar cada nombre de producto a un comboBox. Lo que hice fue hacer:

Código Delphi [-]
procedure TForm5VerOfertas.FormActivate(Sender: TObject);
var
 miNombre: string;
begin


  miNombre:= Form1.Label7.Caption;   
  DM.Subastas.Open;
  DM.Subastas.Prior;
  while not DM.Subastas.eof do begin
    if(DM.Subastas.FieldByName('nombre_usuario').AsString = miNombre) and (DM.Subastas.FieldByName('fecha_fin').AsDateTime < Date) then
      ComboElegirSubasta.Items.Add(DM.Subastas.FieldByName('titulo').AsString);
     DM.Subastas.Next;
  end;

end;

--EL PROBLEMA:

Esto me lo agrega en el comboBox uno abajo del otro, pero el problema es que NO me lo agrega de la forma: en el itemIndex 0 esta el producto 1, en el itemIndex 1 esta el producto 2 y asi.. Lo que hace esto es agregarme en el itemIndex 0 todos los nombres de los productos juntos, OSEA en el itemIndex 0 = producto1producto2 , lo mismo para los demas itemIndex ( ya que lo probe con un edit al lado para ver que era lo que me devolvia ).

ENTONCES : como hago para recorrer la tabla y asignar al itemIndex 0 el producto 1, en el itemIndex 1 el producto 2, y asi sucesivamente??porque no le doy pie con bola.

LES AGRADEZCO MUCHISIMO SUS AYUDAS!!