void __fastcall TForm1::Table1FilterRecord(TDataSet *DataSet, bool &Accept)
{
    Accept = m_pTblTestFilter->FieldByName("Hint")->AsString != "";
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    m_pTblTestFilter->Filtered = true;
}
//---------------------------------------------------------------------------


:
: void __fastcall TMainForm::Table1FilterRecord(TDataSet *DataSet,
:       bool &Accept)
: {
:    switch(RadioButton1->ItemIndex){
:    case 0:
:       if(Table1->FieldByName("FirstName")->AsString.Length() > 0){
:          Accept = Table1->FieldByName("FirstName")->Value == Edit1->Text;
:       }
:       break;
:    case 1:
:       if(Table1->FieldByName("LastName")->AsString.Length() > 0){
:          Accept = Table1->FieldByName("LastName")->Value == Edit1->Text;
:       }
:       break;
:    default:
:       // 이 아래 부분은 데이터가 있을 수도, 없을 수도 있기 때문에
:       // Filter하기가 곤란합니다. 도와주세여~~~~
:       if(Table1->FieldByName("MiddleName")->AsString.Length() > 0){
:          Accept = Table1->FieldByName("MiddleName")->Value == Edit1->Text;
:       } 
:       break;
:    }
: }
: