non lo ho qui ma il codice è + o - questo:

Query1->Colse();
Query1->params->parambyname("par")->Asstring=Edit1->Text;
Query1->Open();
e poi non ricordo.. stasera posto l'originale