[defcon1_es]

Hola.
Creo que el fallo está en la línea que he entrecomentado:

Código Delphi [-]
 with fmodul.Query_val_usuario do
  begin
    Close;
    SQL.Clear;
    SQL.Add ('select nombre,contra from usuario');
    SQL.Add ('WHERE nombre=:us');
//    Parameters.ParamByName('us').Value := wusuario;
    ParamByName('us').Value := wusuario;    
    ExecSQL;
  end;