Polygon Zug Zeichnen

[Fransoir]

Könnte mir jemand nen kleinen Algorithmus für die Polygon Zeichnung aufschreiben. Ich pack dass leider immer noch nicht. Hab erst vor kurzen angefangen Delphi zu lernen, aber irgendwie hab ich mich da nicht reingefunden