Sp,firebird,campo blob binary

[[Luis M.]]

Hola.
Pendón por la tardanza.
Al final no supe como hacerlo (novato que es uno).
Así que basándome en este hílo
pude solucionarlo.

Aquí dejo el código:

Código Delphi [-]
var
  Blob: TBlobField;
  jpg : TJpegImage;
begin
  Busca_Pais := TBusca_Pais.Create(Self);
  try
    cState := 'BUSCAR';
    Busca_Pais.ShowModal;
  finally
    FreeAndNil(Busca_Pais);
    if cCodigo <> '' then DBPais.Text := cCodigo;

    DM.QVarios.Close;
    DM.QVarios.SQL.Text := 'Select NOMBRE,IMAGEN From PAISES Where CODIGO = '+
                            QuotedStr(cCodigo);
    DM.QVarios.Open;

    Blob := DM.QVarios.FieldByName('IMAGEN') as TBlobField;
    jpg := TJpegImage.Create;
    jpg.Assign(Blob);
    DBPaisBandera.Picture.Graphic := jpg;
    LabelPais.Caption := DM.QVarios.FieldByName('NOMBRE').AsString;
    cCodigo := '';
    cState := '';
    FreeAndNil(jpg);
  end;

Un saludo y gracias.