RTF in MySQL

[jobo]

wie wär's mit TBlobField.assign?
.loadFromFile / Stream
.saveToFile / Stream

Code:

if not (Query1.State in [dsInsert, dsEdit]) then Query1.Insert;
Query1<persist-fieldname>.Assign(Image1.Picture.Bitmap);
Query1.Post;