Problema con procedimiento
 

Buenas tardes! Les escribo porque un procedimiento asociado a un boton no da ningun resultado.

Es un formulario para cobrar una cuota, tiene un TEDit para poner DNI del alumno, un TBLookupcombobox para seleccionar meses, y un edit para el importe.
El codigo es el siguiente:

Código SQL [-]
Query2->Close();
      Query2->SQL->Text="SELECT DNI FROM Cuotas WHERE DNI LIKE "
      +QuotedStr("%"+ Edit2->Text+"%");
      Query2->Open();
      bool existente = !Query2->IsEmpty();

      if (existente) {
         Query3->Close();
         Query3->SQL->Text="SELECT Estado FROM Cuotas WHERE DNI LIKE "
         +QuotedStr ("%"+Edit2->Text+"%");
         Query3->Open();
         if (Text=="Pago"){
           ShowMessage("El alumno ingresado ya pago el mes especificado");
           }
           else{
             try{
               Table2->Append();
               Table2->FieldByName("DNI")->AsInteger = Edit2->Text.ToInt();
               Table2->FieldByName("Mes")->AsString = DBLookupCombo1->Text;
               Table2->FieldByName("Estado")->AsString = "Pago";
               Table2->FieldByName("Importe")->AsInteger = Edit3->Text.ToInt();
               Table2->Post();
               }
                catch (const Exception & E) {
        MessageBox(Handle,
          AnsiString(AnsiString(E.ClassName()) + ": " +E.Message).c_str(),
          "ERROR", MB_ICONERROR + MB_OK);
        Table2->Cancel();
      }
       }
       }

Con el Query2 me fijo si el dni existe, con el query3 si el mes esta pago, si no esta pago inserto un registro en otra tabla DNI mes estado e importe.

El caso es que no funciona y no da errores en tiempo de ejecucion. Muchas gracias.

Por favor, recuerda poner títulos descriptivos a tus preguntas, gracias :)

Perdon
 

Ok.Mil disculpas. No se pueden editar los titulos.

Solucionado
 

Ya encontre el problema el DNI debo seleccionarlo de Alumnos en el primer query del codigo, porque desde dni nunca va a existir, gracias igual por pasar por mi tema.