Как проверить наличие уже существующих данных в базе?

//---------------------------------------------------------------------------
 
void __fastcall TForm1::AddAbonentClick(TObject *Sender)
{
Form2->Edit1->Text = "";
Form2->Edit2->Text = "";
if(Form2->ShowModal() == IDOK)
{
}
else
{
if(Form2->Edit1->Text.IsEmpty())
Application->MessageBox("Не указан Ник ICQ! \nБаза не обновлена!",
"Внимание!", MB_ICONEXCLAMATION);
if(Form2->Edit2->Text.IsEmpty())
Application->MessageBox("Не указан Номер ICQ! \nБаза не обновлена!",
"Внимание!", MB_ICONEXCLAMATION);
boolean Propuskat;
Propuskat = false;
if((Form2->Edit2->Text.IsEmpty())|(Form2->Edit1->Text.IsEmpty()))
{}
else
{
TLocateOptions Opts;
Opts.Clear();
Opts << loPartialKey<<loCaseInsensitive;
if (Table1->Locate("ICQ Name",Form2->Edit1->Text,Opts))
{
Application->MessageBox("Данный Ник ICQ уже есть в базе данных! \nБаза не обновлена!",
"Внимание!", MB_ICONEXCLAMATION);
Propuskat = true;
}
};
if(Form2->Edit2->Text == "433033207")
{
Application->MessageBox("Данный Номер ICQ нельзя добавлять в базу данных! \nБаза не обновлена!",
"Внимание!", MB_ICONEXCLAMATION);
Propuskat = true;
};
if((Form2->Edit2->Text.IsEmpty())|(Form2->Edit1->Text.IsEmpty())|(Propuskat))
{}
else
{
Table1->InsertRecord(ARRAYOFCONST((Form2->Edit1->Text,
Form2->Edit2->Text)));
NetFotoClick(Form1);
}
}
if(Table1->RecordCount > 0)
{
UIBe->Visible = false;
DFe->Visible = false;
UFe->Visible = false;
DBEdit1->Enabled = true;
DBGrid1->Enabled = true;
DBImage1->Enabled = true;
}
else
{
UIBe->Visible = true;
DFe->Visible = true;
UFe->Visible = true;
DBEdit1->Enabled = false;
DBGrid1->Enabled = false;
DBImage1->Enabled = false;
}
}
//---------------------------------------------------------------------------