Sp,firebird,campo blob binary

[celades1]

hola

Código Delphi [-]
var STREAM:TMemoryStream;
bitmap:tbitmap;
begin
DM.SP.StoredProcName := 'BUSCA_PAIS';    DM.SP.Prepare;    try
      DM.SP.Params.ParamValues['CODIGO'] := cCodigo;
      DM.SP.ExecProc;
      STREAM:=TMemoryStream.Create;
      bitmap:=tbitmap.Create;
      DM.SP.ParamByName'BANDERA').SaveToStream(STREAM);
      stream.Seek(0,sofrombeginning);
      bitmap.LoadFromStream(stream);
      DBPaisBandera.Picture.Bitmap.Assign(bitmap);
      LabelPais.Caption := DM.SP.ParamByName('NOMBRE').AsString;
    finally
      DM.SP.UnPrepare;
       bitmap.Free;
       STREAM.Free;
    end;
end;

No se si te funcionara yo no utilizo estos componentes, pero la idea es pasarlo a un stream y luego cargarlo, no se si se podria pasar del bitmat i hacer load directamente al picture, pero mi codigo lo tengo asi y supongo que es porque sin el bitmap no me funcionaba

Saludos y suerte