Error: Cannot perform this operation on a closed dataset

[[coso]]

vamos a ver... si pones un breakpoint (F5) en la linea

Código Delphi [-]
...
dm.Qtareas.Close; 
...

y vas con el F8 siguiendo linea por linea...te salta en la linea

Código Delphi [-]
...
dm.Qtareas.ExecSQL;
...

?

me esta dando la impresion que te salta antes, cuando asignas los valores a los parametros. O bien despues del execsql, en alguna otra funcion que se ejecute a continuacion. En el codigo que has mostrado actualmente no veo ningun error.