Very fast 4-sided polygon drawing

I have to draw approximately 27,000 4-sided polygons to a TImage
canvas as quickly as possible.  Preferably less than a few

Currently I am using the Win API polygon() call... which takes
about 7 seconds to draw all the polygons.  Is there a faster
way?  Would it be faster to write my own polygon function
and BitBlt to the image?  Or is this about as fast as it gets?