shag писал(а):не знаю как сделать центральные столбики
А компонент TProgressBar со вкладки Common Controls не подходит? Там же просто задать % от всей шкалы и рисовать ничего не надо. Вот только он зеленый, не знаю как сделать разными цветами.
На вашем рисунке как раз изображено нечто сильно похожее на нарисованную полоску. Рисуйте в TImage или в TPaintBox или даже на самой форме. В TImage проще всего. Кстати насчет поисковика: попробуйте ввести это же запрос в гугле, и увидите нужные вам результаты в числе первых. Не знаю, почему яндекс в этом случае не выводит нормальные результаты.