С TShape не работал, хотя с ним правда было бы проще. Вот через Image:
Код:
image1.Canvas.Ellipse(x1,y1,x1+2*r,y1+2*r);
image1.Canvas.Rectangle(x2,y2,x2+2*r,y2+h);
X1; Y1 - координаты верхнего левого угла вида "сверху"
X2; Y2 - координаты вида "сбоку"