Error SQL - UPDATE _ SET ...

[Durbed]

Tengo un problema con una sentencia SQL, lo cachondo del tema es que desde una consola de SQL funciona perfectamente, pero en el programa falla. El código es el siguiente:

Código Delphi [-]
  If correcto Then //Si los campos son validos, se construye la consulta
    Begin
      consulta := 'UPDATE REVPROY SET n_problema=:n_p, fecha=:f, problema=, solucion=:s, solucionado='+sol;
      consulta := consulta + 'WHERE cod_problema=:c_p;';
  
      //showmessage(consulta);
      //Obtener el codigo del problema a editar.
      codigo := MDatos.IBDS_RevProy.FieldByName('COD_PROBLEMA').AsInteger;
  
      //Ejecutar la consulta
      With MDatos.IBQ_EjecutorConsultas Do
        Begin
          SQL.Clear;
          SQL.Add(consulta);
          ParamByName('n_p').AsInteger := StrToInt(LabeledEdit2.Text);
          ParamByName('f').AsDate := AGDateTimePicker1.Date;
          ParamByName('p').AsString := LabeledEdit1.Text;
          ParamByName('s').AsBlob := memo1.Text;
          ParamByName('c_p').AsInteger := codigo;
          ExecSQL;
        End;
    End;

El error que da es este:

'Dinamic SQL Error
SQL Error code= -104
Token unknow - line1, char85
cod_problema'

y la estructura de la tabla es:

Código SQL [-]
  CREATE TABLE REVPROY (
      COD_PROBLEMA    INTEGER NOT NULL,
      N_PROBLEMA      INTEGER,
      FECHA           DATE,
      PROBLEMA        VARCHAR(200),
      SOLUCION        BLOB SUB_TYPE 0 SEGMENT SIZE 80,
      SOLUCIONADO     CHAR(1)
  );