void __fastcall TFter::BitBtn4Click(TObject *Sender)
{
AnsiString SQL="idtercero <> '' ";
if(idtercero->Text != "")
SQL=SQL+"and idtercero= '"+idtercero->Text.Trim()+"'";//ingreso mas valores a la cadena
if(Edit1->Text.Trim()!="")
SQL=SQL+"and nombres like '"+Edit1->Text.Trim()+"%'";
Tter->Filtered=false;//desactivo filtro
Tter->Filter=SQL; //iguala la sentencia a ejecutar al filtro de la TTable
Tter->Filtered=true;// activo el filtro
}