Вашу задачу можно решить, используя рисование графических примитивов или же поместив на форму два компонента Shape один на другой.
Для вычисления координат центра формы можно воспользоваться свойствами формы
x:=form1.width/2;
y:=form1.hight/2;
При первом способе - Для рисования фигур можно использовать методы ImageRect - прямоугольник и Circle - окружность.
При втором способе - компоненты TShape помещайте один поверх другого, для нижнего задайте свойство формы как прямоугольник, для второго - как окружность. Настройте цвета. В процедуре пропишите координаты отступа слева и сверху для каждого из компонентов, используя вычисленные координаты центра формы.