Error al multiplicar 2 memos

[rufo]

Hola amigos buenas tardes, tengo un problemilla en el cual nose como resolverlo ya he dado muchas vueltas en el foro y no encuentro la solucion, espero que me ayuden, bueno resulta que tengo dos memos y manualmente escribo las cantidad y en un terce memo sale el resultado pero al momento de pasar a escribir la siguiente cantidad me sale el siguiente error:

http://www.subirimagenes.net/show-im...7e754a0e8b57c9

y el codigo que utilizo para hacer dichas operacion es la siguiente

Código Delphi [-]
 If Memo4.Text = '' then
    begin
    // nada
    end
    else
    Memo2.Text := FloatToStr(StrToFloat(Memo7.Text) * StrToFloat(Memo4.Text));

Bueno de antemano gracias y espero su ayuda.Uso delphi 2007

[roman]

Da la impresión, a juzgar por la imagen, que en uno de los memos hay un salto de línea entre los dos digitos del número.

// Saludos

[rufo]

Claro es cuando quiero introducir otro digito y me lanza este error

[Casimiro Notevi]

¿Pero qué es lo que quieres hacer?

[roman]

Empezado por rufo

Claro es cuando quiero introducir otro digito y me lanza este error

Entonces tienes que leer una línea del memo a la vez y no todo el texto. La propedad Text te dará todo el contenido incluyendo los retornos de carro.

// Saludos

[rufo]

Lo que quiero hacer es un multiplicacion cada vez que introdusca datos numericos en los los dos memos y que me muetre el resultado en el tercer memo, pero nose como hacerle solo ese codigo tengo y es ahi mi problema.

[champy]

Como dice Roman, leyendo las lineas una por una, con Memo.Lines[NdeLinea]

Código Delphi [-]
VAR
   Linea : Integer;
Begin

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

End;