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;