Interbase - gravando imagens bmp no banco

{

CREATE TABLE FOTOS (

    NOME_DA_FOTO VARCHAR (50),

    FOTO BLOB sub_type 0 segment size 80);

}

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

  IF IBTable1.State=DsInsert then

  begin

     IF OpenPictureDialog1.execute then

     Begin

      IBTable1FOTO.loadfromfile(OpenPictureDialog1.filename);

     end;

  end

  else

    ShowMessage('Falta Pressionar Botão de Inclusão de Novo Registro');

end;

// exibir a foto 

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

  Image1.Picture.Bitmap.Assign(IBTable1FOTO);

end;