怎么转换？变成百分制 %
var a,b:integer;

edit1.Text:=(a-b)/a;

[解决办法]
Edit1.text :=Format('%d%%',trunc((a-b)/a*100))
[解决办法]
1L,要加中括号吧
Edit1.text :=Format('%d%%',[trunc((a-b)/a*100)]);