Como salvar imagens no Firebird?

É seguinte estou trabalhando com Firebird e ibx. Estou tentando salvar imagens no campo blob, mais não stou conseguindo!
o código é o seguinte:
procedure Tprodutos.DBFOTODblClick(Sender: TObject);
begin
inherited;
IF ABREFOTO.Execute THEN
DBFOTO.Picture.LoadFromFile(ABREFOTO.FileName);
end;

end.
OBS: Estou abrindo apenas *.BMP, mas continua dando erro!

O que posso fazer! me ajudem!