function FormatPercent(r: real; count: byte): string;
var l: byte;
begin
   l:=Length(IntToStr(Trunc(r)));
   if l>=count then
      count:=l+1;
   Result:=Format('%*.*f%%', [l, count-l-1, r]);
end;

где:

• r – исходное число;
• count – минимальное количество символов, выводимых в строке (запятая включается в количество символов записи десятичного числа!).

Например,

• FormatPercent(3.85255, 5) выведет '3,853%';
• FormatPercent(38.5255, 5) выведет '38,53%'.