Foros Club Delphi - Consulta Blob

Buenas,

Estoy haciendo una aplicación que tiene que insertar un .DOC en un campo blob, he estado leyendo por ahi y todo lo que pruebo me da error, el error es siempre el mismo:

Cita:

No se admite el tipo de datos

Este error me da siempre que intento hacer el open de la query.

Os pego el codigo de la funcion a ver si me podeis arrojar un poco de luz.

Muchas gracias.

Código:

procedure TFInformeSup.btnEnviarClick(Sender: TObject);

var

  stream: TMemoryStream;

  query : TADOquery;

begin

  if (tipo_param > 0) and (zona_inf > 0) then

  begin

    if FileExists(eInforme.Text) then

    begin

      try

        query := TADOQuery.Create(nil);

        query.Connection := DM.conexion;

        stream := TMemoryStream.Create;

        if stream = nil then

        begin

          ShowMessage('No se ha podido leer el fichero.');

          Exit

        end;

        query.SQL.Add('SELECT * FROM azul_ficherossuperacion);

        stream.LoadFromFile(eInforme.Text);

        stream.Seek(0, 0);

        query.Open;

        try

          query.Append;

        except

          on E: Exception do ShowMessage(E.Message);

        end;

        query.FieldByName('nombre_fs').AsString := 

                              uppercase(ExtractFileName(eInforme.Text));

        TBlobField(query.FieldByName('ficherosup_fs')).LoadFromStream(stream);

        try

          query.Post;

        except

        end;

        query.Close;

      finally

        stream.free;

        query.Close;

        query.Free;

      end;

    end

    else

      ShowMessage('Por favor, seleccione un archivo a enviar válido.');

  end

  else

    ShowMessage('Por favor, seleccione un parámetro y/o zona.');

end;