[ecfisa]

Hola bulc.

Funciona correctamente aplicando Open/Close sobre el TSimpleDataSet en lugar de hacerlo sobre la propiedad DataSet:

Código Delphi [-]
...
  with SimpleDataSet1 do
  begin
    Close; // <-
    DataSet.CommandType:= ctQuery;
    DataSet.CommandText:= 'SELECT * FROM WB WHERE NUM = :PNUM';
    DataSet.ParamByName('PNUM').AsInteger:= StrToInt(Edit1.Text);
    Open; // <-
  end;
...

Saludos