memo类型类型的字段长度为800
用tmemo他的maxlength:=800;
写数据:
query1.fieldbyname().asstring :=       memo1.lines.Text ;
就行了