Вероятно, было бы проще всего использовать GradientFillCanvas с областью отсечения.Смотрите следующие ссылки:
http://docwiki.embarcadero.com/VCL/en/GraphUtil.GradientFillCanvas
http://www.delphigroups.info/2/12/324143.html
Так что вы бы сделали что-то вроде:
POINT polygon[8] = {{0,8},{10,0},{10,5},{21,5},{21,10},{10,10},{10,15},{0,8}};
HRGN rgn = CreatePolygonRgn( polygon, 8, WINDING );
SelectClipRgn(PaintBox1->Canvas.Handle, rgn);
TRect gradientRect(0,0,21,15);
GradientFillCanvas( PaintBox1->Canvas, start_color, end_color, gradientRect, gradient_direction );
SelectClipRgn(PaintBox1->Canvas.Handle, NULL);
DeleteObject(rgn);
//the polygon could also be drawn instead of using LineTo
PaintBox1->Canvas->Polygon( polygon, 8 );