帮我看看,关于浮点小数的处理(20分)

我现时在单击事件按钮中定义如下
procedure Tform_badrate.BitBtn1Click(Sender: TObject);
begin
var
i,j:integer;
s1,s2:string;
k:double;
begin
s1:=inttostr(i+j);
s2:=inttostr(j);
k:=(strtofloat(s2)/strtofloat(s1));
showemssage(floattostr(k));
end;
问题是我想将k得出的结果小数点只要一位,请问这个k最后怎样处理得到可以showmessage出来

Format('%.1f',[k]);
FormatFloat('0.0',k);
-----------------------format会导致倒数第二位小数四舍五入-----
如果不想四舍五入就用下面的
Copy(FloatToStr(k),1,pos('.',FloatToStr(k)) + 1);

showemssage(floattostr(roundto( k,-1)));