Is this a bug?

[thaimann]

Is this a bug or am I doing something wrong?

ConstDBCB.Items.Clear;
GenQuery.SQL.Text := 'select constidx from const order by constidx ' +
        'Desc;';
GenQuery.Active := True;
GenQuery.First;
If GenQuery.RecordCount > 0 Then
   Repeat
         ConstDBCB.Items.Add(GenQuery.FieldByName('ConstIdx').AsString);
         GenQuery.Next;
   Until GenQuery.Eof;
GenQuery.Active := False;


ConstDBCB is a tdbCombobox.
Every time this is ran, the text value(table value) is replaced with the
last value loaded into the itemslist.  This has never given me any
trouble under Delphi!

ConstDBCB is a tdbCombobox.
GenQuery is a Query object to a PostgreSQL table.
I am running FC4, Lazarus 0.9.18