Tabellendaten --> DBListBox ?

[webcss]

Delphi-Quellcode:

procedure myForm.ButtonClick(Sender: TObject);
begin
   table1.First;
   ListBox1.Clear;
   Listbox1.Items.BeginUpdate;
   while not table1.Eof do begin
      ListBox1.Items.Add(table1.Fields[0].AsString);
      table1.next;
   end;
   ListBox1.Items.EndUpdate;
   ListBox1.ItemIndex := 0;
end;