Hola Foro:
En primer lugar, como siempre muchas gracias por sus aportes.
Al finall la solucion fué cambiar el método de grabación y quedó bien.
Quedó así.
Código Delphi
[-]procedure TForm1.Button8Click(Sender: TObject);
begin
Q_Ins.Parameters.ParamByName ('ID').Value:= StrToInt(Edit4.Text);
Q_Ins.Parameters.parambyname('CD').Value:= Edit5.Text;
Q_Ins.Parameters.parambyname('Articulo').Value:= Edit6.Text;
Q_Ins.Parameters.ParamByName('Obs').VALUE:=(Memo3.Text);
Q_Ins.ExecSQL;
end;
Otra vez, muchas gracias