Error al grabar un campo blob desde stream

[[fjcg02]]

Hola amigos,
Creo que el título es bastante explicativo.

Condiciones: Delphi 7 y Firebird 2.0
tengo este código,

Código Delphi [-]
procedure TFormMain.SalvarConfiguracionA(Sender: TForm);
var Stream: TMemoryStream;
begin
  Stream:= TMemoryStream.Create();
  with DM1.SQLSPUsuarioConf do
  begin
    ParamByName('PUsuario').AsString:= wUsuario;
    ParamByName('PObjeto').AsString:= Objeto;
    cxGridDBTableViewX.StoreToStream(Stream, [], '');
    Stream.Seek(0,0);
    ParamByName('PValorA').LoadFromStream(Stream, ftBlob);
    ExecProc;
end;
Stream.Free;
end;

en la tabla el campo blob está definido como BLOB, Bynary y tamaño 10.000

El error que me da es el siguiente al hacer el ExecProc

arithmetic exception, numeric overflow or string truncation.

Alguna pista ?

Gracias por su atención