void __fastcall TListForm::ListViewSelectItem(TObject *Sender,
      TListItem *Item, bool Selected)
{
        AnsiString capt = "Haluatko poistaa rivin ";
        capt += Item->Caption;

        if (Selected && Application->MessageBoxA("Haluatko poistaa valitun rivin?",
            capt.c_str(), MB_YESNO) == IDYES) {

                PhoneBookDatabase::instance().removeByName(Item->Caption);

        }

}