Error al multiplicar 2 memos

[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;