delphi里怎么只显示4位小数啊？

代码如下

procedure TForm1.Button1Click(Sender: TObject);
var

m:variant;
begin
m:=1.162179;
edit1.text:=m;
end;
end.


结果edit1只显示了1.1622阿，后面的被四舍五入了
我把edit1.text:=m换成了edit1.text:=floattostr(m);也是一样啊
谁知道怎么让他显示完全

我是新手
谢谢

因为variant对类型没有限制阿

有没有办法让他无类型限制，而又能显示全部数位的方法呢？
谢