MENAMPILKAN DATABASE KE COMBOBOX / LISTBOX

  with dm.Dcatbrand do

  begin

    close;

    SQL.clear;

    SQL.Add('select * from TType ');

    execute;

  end;

   dm.Dcatbrand.First;

  while not dm.Dcatbrand.Eof do

  begin

//lst3.Items.AddObject(dm.Dunit.fieldbyname('Brand').AsString,TInjIndex.Create(dm.Dunit.fieldbyname('Brand').AsString,dm.Dunit.fieldbyname('IdBrand').AsString));

lst3.Items.AddObject(dm.Dcatbrand.fieldbyname('TypeBrand').AsString,TObject(dm.Dcatbrand.fieldbyname('IdType').AsInteger));

    dm.Dcatbrand.Next;

  end;