Const
   //Длинна полоски статуса выполнения цели
   ChStart='(*';
   ChEnd='*)';
   st1='-';
   st2='#';
   LBar=20;
   
Function TextProgressBar(progint:integer):AnsiString;
var i, i1:integer;
   s1, s2:AnsiString;
begin
   s1:='';
   s2:='';
   for i := 1 to (LBar div 2) do begin
      i1:=Round((progint * LBar / 100));
      if i1 < i then
         s1:=s1+st1
      else 
         s1:=s1+st2;
   end;
   for i := ((LBar div 2) + 1) to LBar do begin
      i1:=Round((progint * LBar / 100));
      if i1 < i then
         s2:=s2+st1
      else 
         s2:=s2+st2;
   end;
   Result:=ChStart+s1 + ' ' + IntToStr(progint) + ' % ' + s2+ChEnd;
end;

Function GetProcInt(Progress, MaxValue:Integer):Integer;
Begin
   Result:= Round((Progress * 100) / MaxValue);
end;