qryEliminar->Close();
qryEliminar->SQL->Clear();
qryEliminar->SQL->Add("DELETE Tabla1.nom2, Tabla1.*, Tabla2.*");
qryEliminar->SQL->Add("FROM Tabla1 INNER JOIN Tabla2");
qryEliminar->SQL->Add("ON Tabla1.id_p = Tabla2.id_p ");
qryEliminar->SQL->Add("WHERE Tabla1.nom2 LIKE '"+Edit2->Text+"%'");
//en la fila anterior se puede modificar el operador dependiendo el criterio
qryEliminar->ExecSQL();