Error al multiplicar 2 memos

[rufo]

Una disculpa por no aclarar bien resulta que puse el ejemplo que mencionaste Champy, si funcioan pero al momento de poner otra cantida en el memo donde muestra los resultados estos se van borrando es ahi mi duda, anexo el codigo

Código Delphi [-]
procedure TFACTURA.Memo4Change(Sender: TObject);
VAR
   Linea : Integer;
Begin

For Linea := 0 to Memo4.Lines.Count -1 do
Begin
   Memo2.Lines.Add( FloatToStr( StrToFloat(Memo4.Lines[Linea]) * StrToFloat(Memo7.Lines[Linea])) );
End;
end;

Mi duda es por que cuando pongo otra cantida en la siguiente linea del memo, en el otro memo donde tiene que mostrar el resultado se borra...