Data til combobox i Borland fra accesdatabase

Kan ikke lige huske det helt men jeg tror der er en der hedder append istedet for Add.

ComboBox ->Items ->Append(DataModule1->OmrTable->FieldByName("OmrID")->AsInteger);

Den overskriver ikke de data som stod før men ligger dem bag i rækken

Det var noget i den her retning jeg skulle bruge:

DataModule1->OmraadeTable->First();
if(DataModule1->OmraadeTable->Bof)
  {
  while(!DataModule1->OmraadeTable->Eof)
        {
        VaelgOmraaComboBox ->Items ->Add(DataModule1-> OmraadeTable->      FieldByName("Navn")->AsString);
      DataModule1->OmraadeTable->Next();
        }
      }

Men det er sikkert rigtigt hvis der står noget i comboboxen i forvejen.
Det er dog ikke tilfældet her.
Men tak alligevel :)