La prmière serie du code en vert fonctionne à merveille.

procedure TFicheProfs.RemplirExecute(Sender: TObject);
begin
Memo1.Text:=DM1.IBTableProfs.FieldByName('ADRESSEPROF').AsString;

Image1.Picture.Bitmap.Assign(DM1.IBTableProfs.FieldByName('PHOTO'))

end;

la seconde série pour l'enregistrement génère des erreurs lorsque je souhaite enregistrer l'image chargée dan le TImage dans un champs blob de ma base Interbase

procedure TFicheProfs.EnregistrerClick(Sender: TObject);
begin
DM1.IBTableProfs.FieldByName('ADRESSEPROF').Value := Memo1.Text;

Image1.Picture.Bitmap.Assign(DM1.IBTableProfs.FieldByName('PHOTO'))
DM1.IBTableProfs.Post;
end;

vérifiez le code d'nregistrement pour moi svp