[Кодер]

Загрузка с БД. БД=файл list.txt

Код:

procedure TForm1.FormCreate(Sender: TObject);
var
f:tstringlist;i:integer;
begin
f:=tstringlist.Create;
f.LoadFromFile('list.txt');
for i:=0 to f.count-1 do
  begin
  cb.AddItem(string(f.Strings[i]),cb);
  end;
end;