Организация поиска через ADOQuery

ADOQuery1->Close(); //Закрываем существующий запрос
ADOQuery1->SQL->Clear; //Очищаем текст запроса
ADOQuery1->SQL->Add("SELECT * FORM BASE.TAB WHERE PASSPORT = " + Edit1->Text; //Добавляем новый текст запроса
ADOQuery1->Open(); //Исполняем запрос
if(ADOQuery1->IsEmpty()) //Если в запрос не попало ни одной записи
 {
    ShowMessage("Человека с указанными данными нет в базе\nПовторите ввод"); //Выдали сообщение
    Edit1->Clear(); //Очистили поле критерия поиска
    Edit1->SetFocus(); //Перевели фокус на поле ввода критерия поиска
    return; //Вышли из обработчика нажатия кнопки
 }
else //Если запись, как ни странно, найдена
 {
    Edit2->Text = ADOQuery1->FieldByName("Family")->Value; // Заполняем оставшиеся эдиты полями из запроса
    Edit3->Text = ADOQuery1->FieldByName("Name")->Value;
    Edit4->Text = ADOQuery1->FieldByName("Otch")->Value;
    Edit5->Text = ADOQuery1->FieldByName("BirthDay")->Value;

if(ADOQuery1->RecordCount)
{
 ShowMessage("Есть");
}
else
{
ShowMessage("Нет");
}

ADOQuery1->Close();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("SELECT Name, Fam, Otch, GOS_REG, IP_SUM, FIO_SPI, MODEL FROM DEBTOR AS D JOIN DATA_STR AS DI ON D.REQ_ID=DI.REQUEST_ID JOIN REQUEST AS R ON D.REQ_ID=R.REQ_ID JOIN SPI AS S ON R.SPI_ID=S.SPI_ID WHERE GOS_REG LIKE '"+Form1->Edit1->Text+"'");
ADOQuery1->Open();
if(ADOQuery1->IsEmpty())

'"+Form1->Edit1->Text+"%_%'

void __fastcall TForm2::DBGrid1DblClick(TObject *Sender)
{
Edit2->Text=DBGrid1->'"GOS_REG"'->Value;
}

Edit2->Text = ADOQuery1->FildByName("GOS_REG")->AsString

Edit2->Text = ADOQuery1->FieldByName("GOS_REG")->AsString

void __fastcall TForm5::sButton1Click(TObject *Sender)
{
ADOQuery3->Close();
ADOQuery3->SQL->Clear();
ADOQuery3->SQL->Add("Select * From Ðåêëàìà");
ADOQuery3->SQL->Add("Where name='"+Edit1->Text+"'");
ADOQuery3->Active=true;
if(ADOQuery3->IsEmpty()) 
 {
    ShowMessage("²çäåë³í³ï îòûðƒàí äåðåê č-äà æî \n Åíã³çóä³ àéòàëàœûç"); //Âûäàëèå ñîîáùåíèå
    Edit1->Clear(); 
    Edit1->SetFocus(); 
    return; 
 }
 /*else //Åñëè çàïèñü, êàê íè ñòðàííî, íàéäåíà
 {
    Edit4->Text = ADOQuery3->FieldByName("Cod")->Value; 
    Edit5->Text = ADOQuery3->FieldByName("Name")->Value;
//    Memo1->Lines = ADOQuery1->FieldByName("Opisanie")->Value;
    }

DBEdit1->DataField=DBGrid->SelectedColumn->FieldName; //если используем grid