Hola aquiestamos.
Por la forma de la imágen creo vas a tener que dibujarla con las funciones
MoveTo,
LineTo y
Arc cuidando de que sus extremos se unan para luego rellenarla con
FloodFill .
No has comentado el cometido de las figuras, pero una opción mucho mas simple es dibujarlas en un editor de imágenes, guardarlas como archivos de imágenes y cargarlas desde delphi como tales.
Si explicas un poco mas que función van a cumplir las figuras tal vez te puedan dar mas opciones...
Saludos