1) Очистить свойство Lines в инспекторе объектов
2) Для начала - пользуемся тегами (иначе будет бан). А что ты хотел. Компьютер считает приблизительно. Особенно, при использовании старого типа real.
а) Измени тип функций на Double.
б) Подключи модуль Math и воспользуйся функцией RoundTo для округления до каког-нить разумного знака (например, до 1 знака посде запятой для ср. арифметического). Вообще, можно и руками округлить:
Код:
function SrArifm:Double;
begin
Result:=(StrToInt(Form1.MaskEdit1.Text)+StrToInt(Form1.MaskEdit2.Text))/2;
Result := Round(Result*10)/10;
end;
Еще посмотри в сторону функции Format. Там можно указать сколько знаков при выводе в строку тебя интересует, тогда она округлит значение.