保留小数有关问题

保留小数问题。
procedure TForm1.edt15Exit(Sender: TObject);
var
  a,b,c:Double;
  begin
  
  if not TryStrToFloat(Trim(edt14.Text),a) then
 begin
  ShowMessage('请输入数字');
  edt14.SetFocus;
  exit;
 end;
 if not TryStrToFloat(Trim(edt15.Text),b) then
 begin
  ShowMessage('请输入数字');
  edt15.SetFocus;
  exit;
 end;
 
  c:=b/(a+b)*100;
  edt22.Text:=FloatToStr(round(c))+'%' ;

代码如上
想最后在edt22上面显示 百分比保留两位小数。
比如 33.3333333333333% 只显示33.33%就行了。
最好能上代码

[解决办法]
format('%4.2f',XXX);

FormatFloat('0.00%',edit1.text);

这个应该可以的
[解决办法]
edt22.Text:=FormatFloat('0.00%',c);
[解决办法]
edt22.Text:=FormatFloat('0.00%',c);