Preenchendo poligonos no Delphi (canvas)

Alguem conhece alguma funcao do delphi que preenche a area de um poligono, dadas as coordenadas limites do mesmo ???

Floodfill faz isso, mas no caso eu precisaria desenhar o poligono na tela e depois mandar preencher (porque ele recebe uma coordenada interna do poligono e procura pelo limite do mesmo, usando diferenças na cor do mesmo). No caso, eu preciso de alguma funcao que receba X coordenadas do poligono e preencha a area interna do mesmo. Alguem sabe se existe uma funcao q faça isso ???