如何实现下列功能

Question

输入(string)12时，输出(real)12.00
  输入(string)12.345时，输出(real)12.345
  也就是说如果是整数，要在后面添加'.00'
  如果是浮点数，保持原样 

Answer 1

procedure TForm1.Button2Click(Sender: TObject);
var
d:double;
s:string;
begin
d:=strtofloat(edit1.Text);
s:=formatfloat('#,##0.00', d);
showmessage(s);
end;
唉！我都快给你调试了一个小时了，
用了Format function
FormatBuf function
FmtStr  procedure
StrFmt  function
StrLFmt  function都不行，最后....................................Zz
累得不行了