[ContraVeneno]

Código Delphi [-]
//....
CLOSE;
end;
exit; 
{-- este exit hace que se salga de la función y no se ejecute 
lo demás, supongo que por eso tu otra consulta nunca se realiza, 
trata de revisarlo paso por paso, para ver si eso es lo que sucede --}
 
with FDM.QCC do
begin
//.......

mi duda es con el exit como menciono en el comentario. No deberías tener ningún problema haciendo dos consultas, de cualquier manera tambien podrías usar otro TQuery (FDM.QCC2 por ejemplo).

Otra cosita:
cuenta1.text<>'' funcionaría bien, pero ¿que tal si en tu edit escribiendo un espacio? entonces cuenta1.text sería igual a '_' con lo que sí entraría en la función. Prueba hacer:

Código Delphi [-]
If (Trim(CUENTA1.TEXT)<>'')OR(Trim(CUENTA2.TEXT)<>'')THEN