保存文本格式到数据库(100分)

各位大虾：
我要把memo中的内容保存到数据库中，读数据库后怎样按原来的格式显示在memo中？

var
ss:TStringStream;
dStringList:TStringList;
begin
dStringList.loadfromfile('');
ss := TStringStream.Create(dStringList.GetText);
ssql:='insert into xxx(md) values(':tmd')';
with dmPublic.qrymcd do
begin
close;
sql.text:=ssql;
Parameters.ParamByName('tmd').LoadFromStream(ss,ftMemo);
execsql;
end;

'select ... from ';
fieldbyname('md').asstring;