Sp,firebird,campo blob binary

[[Luis M.]]

Hola.
A ver si me podéis ayudar con este tema.
Uso D2007, Firebird 2.0.4 y MDO

Tengo el siguiente Sp:

Código Delphi [-]
CREATE PROCEDURE BUSCA_ESTADO (codigo varchar(10))
returns ( bandera blob sub_type 0 segment size 80, nombre varchar(30))
as
begin
  /* Procedure Text */
  select NOMBRE,IMAGEN from ESTADOS where CODIGO = :codigo
  into :nombre,:bandera;
  suspend;
end

Desde código lo llamo:

Código Delphi [-]
    DM.SP.StoredProcName := 'BUSCA_PAIS';
    DM.SP.Prepare;
    try
      DM.SP.Params.ParamValues['CODIGO'] := cCodigo;
      DM.SP.ExecProc;
      DBPaisBandera.Picture := DM.SP.ParamByName('BANDERA').Value;<- Aquí es donde no se como hacerlo.
      LabelPais.Caption := DM.SP.ParamByName('NOMBRE').AsString;
    finally
      DM.SP.UnPrepare;
    end;

DBPaisBandera es JvDBImagen.

¿Alguna sugerencia?
Gracias por vuestra ayuda.
Saludos.