Function TextProgressBar(progint:integer):string;
begin
if progint >= 0 then
Result := '<$1> '+IntToStr(progint)+' <$3> <$2>';
if progint >= 10 then
Result := '<$1><$0> '+IntToStr(progint)+' <$3> <$2>';
if progint >= 20 then
Result := '<$1><$0><$0> '+IntToStr(progint)+' <$3> <$2>';
if progint >= 30 then
Result := '<$1><$0><$0><$0> '+IntToStr(progint)+' <$3> <$2>';
if progint >= 40 then
Result := '<$1><$0><$0><$0><$0> '+IntToStr(progint)+' <$3> <$2>';
if progint >= 50 then
Result := '<$1><$0><$0><$0><$0><$0> '+IntToStr(progint)+' <$3> <$2>';
if progint >= 60 then
Result := '<$1><$0><$0><$0><$0><$0> '+IntToStr(progint)+' <$3><$0> <$2>';
if progint >= 70 then
Result := '<$1><$0><$0><$0><$0><$0> '+IntToStr(progint)+' <$3><$0><$0> <$2>';
if progint >= 80 then
Result := '<$1><$0><$0><$0><$0><$0> '+IntToStr(progint)+' <$3><$0><$0><$0> <$2>';
if progint >= 90 then
Result := '<$1><$0><$0><$0><$0><$0> '+IntToStr(progint)+' <$3><$0><$0><$0><$0> <$2>';
if progint >= 100 then
Result := '<$1><$0><$0><$0><$0><$0>'+IntToStr(progint)+' <$3><$0><$0><$0><$0><$0><$2>';
end;
Пробуй
