[Niiña]

Hola. Tengo un pequeño problema estoy realizando un update a mi base de datos en firebird pero no se actualiza ingreso los datos y cuando le doy al botón no hace nada..
Este es el código que estoy realizando dentro de un botón..

Código Delphi [-]
  
   Query.Close;
   Query.SQL.Clear;
   Query.SQL.Add('update  HUMEDADNATURAL ');
   Query.SQL.Add('set  HUMEDADNATURAL.TARAENVASE='+NumConDec(Edittaraenvase.Text)+',');
   Query.SQL.Add('HUMEDADNATURAL.TARA_SUELOHUMEDO='+NumConDec(Edittarash.Text)+',');
   Query.SQL.Add('HUMEDADNATURAL.TARA_SUELOSECO='+NumConDec(Edittarass.Text)+',');
   Query.SQL.Add('HUMEDADNATURAL.PROFUNDIDAD='+NumConDec(Editprofundidad.Text)+',');
   Query.SQL.Add('HUMEDADNATURAL.PESO_AGUA='+NumConDec(Labelrpa.Caption)+',');
   Query.SQL.Add('HUMEDADNATURAL.PESO_SUELOSECO='+NumConDec(Labelrpss.Caption)+',');
   Query.SQL.Add('HUMEDADNATURAL.CONTENIDO_HUMEDAD='+NumConDec(Labelrch.Caption)+'');
   Query.SQL.Add(' where  HUMEDADNATURAL.IDENSAYO='+inttostr(idensayo1)+'');
   Query.SQL.Add('and HUMEDADNATURAL.IDMUESTRA='+inttostr(idmuestra1)+'');
   Query.SQL.Add('and HUMEDADNATURAL.ALBARAN='+chr(39)+Editalbaran.Text+chr(39));
   Query.SQL.Add('and HUMEDADNATURAL.MUESTRA='+chr(39)+Editmuestra.Text+chr(39));
   Query.ExecSQL;
   ShowMessage('Se realizo la actualización ');

Sera que estoy realizando algo mal..??
o Como es la sintaxis correcta para realizar el update y se pueda actualizar la base de datos..! :S

Ayudaa..!