[ContraVeneno]

Código Delphi [-]
var Pass string;
with DM.proveedores do
 if active then close;
 SQL.Clear;
 SQL.Add('SELECT Password FROM empleados ');
 SQL.Add('WHERE Presentoexamen IS NULL AND Registro="'+marca+'"'); 
 Open;

 Pass:=FieldByName('Password').AsString;
end; //with

Dos cosas que tienes que notar, hago una comprobación de la consulta, si esta ya esta activa, entonces la cerramos. Mas vale prevenir.

Y lo segundo, todas las consutas se deberán activar con el comando Open. El comando ExecqSQL se utiliza para aquellas instrucciones que no regresan valor, es decir, un Update, insert o delete. Pero todas las consultas (Select) deberán activarse con el comando Open.