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