aqui hay una respuesta
http://www.bsdg.org/SWAG/DELPHI/0123.PAS.html
Código:
procedure TForm1.FormCreate(Sender: TObject);
begin
with table2 do begin
open;
while not EOF do
begin
DBlistbox1.items.add(FieldByName('name').AsString);
next;
end;
end;
end;