Como gravar o conteúdo de um memo ?

Copiei um texto qualquer que contém parágrafos, etc, entretanto, na hora de inserir, salvou apenas o primeiro parágrafo. O que há de errado no código abaixo?

with dm.qryGeral do
begin
close;
sql.clear;
sql.add(´Insert into parecer values (´ +
quotedStr(lblNumeroParecer.caption) + ´, ´ +
inttostr(12) + ´, ´ +
QuotedStr(edReferencia.text) + ´, ´ +
QuotedStr(edOrigem.text) + ´, ´ +
QuotedStr(edInteressado.Text));

For i := 0 to memoAssuntoParecer.Lines.Count - 1 do
texto := memoAssuntoParecer.Text;

sql.add(´, ´ + quotedstr(texto) + ´, ´ + DateToStr(date) + ´)´);

execSql;

obrigado por sua atenção!