For reading and writing data you can use BLOB stream feature of TTable:
procedure TForm1.Button2Click(Sender: TObject); var Stream1: TStream; begin Table1.Edit; Stream1:=Table1.CreateBlobStream(Table1.FieldByName('RTF'),bmReadWrite); RichEdit1.Lines.SaveToStream(Stream1); Table1.Post; RichEdit1.Clear; end;