var a:real;
    b:real;
begin
a:=strtofloat(edit1.text);
b:=(2.05*a);
memo1.lines.text:=floattostr(b);
每次我输入一个数memo1中在第一行显示,就把以前的覆盖了!
我想在memo1中达成一竖排。