Pascal - Come creare un poligono pieno?

Salve a tutti. Come posso fare per inserire un quadrilatero irregolare in graph, in modo che abbia l'area colorata e i bordi di un altro colore?

Devi usare l'accoppiata SetFillStyle e FloodFill
il primo ti dice come riempire e di che colore, il secondo dato un punto (all'interno del tuo rettangolo) riempe del colore prestabilito da SetFillStyle sino a che non incontra il colore che gli passi.
Un piccolo esempio

 
 SetColor (5); // colore del bordo
 Rectangle ( 100, 80, 120, 200 );  //disegno il rettangolo
 SetFillStyle ( SolidFill, 6); // voglio riempire con il colore 6
 FloodFill ( 110, 110, 5);  // prendo un punto dentro il mio rettangolo contornato dal colore 5

G.