SST> поле объявлено так SST> RICH_TEXT BLOB SUB_TYPE 1 SEGMENT SIZE 4096
SST> Текст в блоб записывается так
SST> pFIBQuery1.SQL.Text := 'UPDATE rich_text_table SET rich_text =
:rich_text WHERE rtt_id = :rtt_id
var
m = TMemoryStream;
...
begin
m := TMemoryStream.create;
try
TntRichEdi1.Lines.SaveToStream(m);
m.position := 0;
pFIBQuery1.ParamByName('rich_text').LoadFromStream(m);
.....
finally
m.free;
end;
С уважением,
Константин Григорьевич.
===============

