Как сделать ProgressBar в Windows.Forms PascalABC.net?

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;

Пробуй