Genauso, wie bei der ComboBox also
Delphi-Quellcode:
procedure TForm1.TableAfterPost(DataSet: TDataSet);
begin
with DBListBox do
if Items.IndexOf(Field.AsString) < 0 then
Items.Add(Field.AsString);
end;
da beide Komponenten eine Eigenschaft Items vom Typ TStrings haben.