Problemas com QRShape no QReport

Pessoal preciso da ajuda de vc´s
Preciso colocar um QRShape dinamico, mas não estou conseguindo.
Quando pego o tamanho da DB, como o usuario não digita enter no final da linha do memo, so quando vai começar novo paragrafo, o num de linhas do DB não bate com o do memo. Se leio as linhas do memo, tb da erro, porque no frm o memo é menor que na prn, o que fazer.
Fiz uma tremenda gambiarra pra tentar resolver o problema mas nada feito.

a gambi é a seguinte.
Ingrediente.Lines.Assign(dmReceita.qryReceita.FieldByName(´INGREDIENTE´));
Preparo.Lines.Assign(dmReceita.qryReceita.FieldByName(´PREPARO´));
// ----------------- conta linha Prepato ----------------------
S := Preparo.Lines.Text;
Num := 0;
nPreparo := 1;
for I := 1 to Length(S) do
begin
if Num < 45 then
begin
Num := Num + 1;
// S1 := S1 + S[I];
end
else
begin
num := 0;
nPreparo := nPreparo + 1;
end;
end;

if Ingrediente.Lines.Count > nPreparo then
begin
nIngrediente := Ingrediente.Lines.Count * Ingrediente.Height;
QRShape1.Height := nIngrediente;
end
else
begin
nPreparo := nPreparo * Preparo.Height;
QRShape1.Height := nPreparo;
end;