søgning indsætter nyt objekt

jeg sidder med dette problem:

at jeg laver en søgning i min database, og når søgningen lykkes tilføjer den et objekt i min listbox

f.eks hvis jeg søger på film "Saw", og denne film allerede ligger i listboksen, tilføjer den et nyt objekt ved navn "saw",  så der derfor ligger 2 "Saw" i min listbox, hvordan kan jeg undgå dette.

Dette er koden til min søgfunktion:


DM->Query->Close();
        DM->Query->SQL->Clear();
        DM->Query->SQL->Add("SELECT * FROM film WHERE lower(navn) like '%"
                                                +edtFilmTitel->Text+ "%'");
        DM->Query->ExecSQL();
        DM->Query->Open();
        DM->Query->First();

        Film *temp_film;
        while(!DM->Query->Eof){
                temp_film = new Film;
                temp_film->pfilm_navn = DM->Query->FieldByName("navn")->AsString;
                ListboxFilm->Items->AddObject(temp_film->pfilm_navn,(TObject*) temp_film);
                DM->Query->Next();
}