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...

[ecfisa]

Hola rufo.

Proba de este modo:

Código Delphi [-]
procedure TFACTURA.FormCreate(Sender: TObject);
begin
  ...
  // Las dos líneas siguientes se pueden omitir,
  // si se asigna el evento desde el Object Inspector
  Memo4.OnChange:= MemoChange;
  Memo7.OnChange:= MemoChange;
end;

procedure TFACTURA.MemoChange(Sender: TObject);
var
  v1,v2: Double;
  c: Integer;
begin
  c:= 0;
  Memo2.Lines.Clear;
  while (c < Memo4.Lines.Count) and (c < Memo7.Lines.Count) do
  begin
    if TryStrToFloat(Memo4.Lines[c],v1) and TryStrToFloat(Memo7.Lines[c],v2) then
      Memo2.Lines.Add(Format('%8.2f',[v1*v2]))
    else
      Memo2.Lines.Add('Error en operandos. (Línea' + IntToStr(c) +')');
    Inc(c);
  end;
end;
...

Saludos.

[rufo]

Gracias amigo Ecfisa he probado el ejemplo que me diste y me funciono, gracias de nuevo y a todos que me ayudaron.