Al
Almanack
Цикл For ...
внутри него
Circle
http:// pascal.net.ru/Circle
LineTo, LineTo,LineTo,LineTo (будет удобнее чем Line в данном случае)
http:// pascal.net.ru/LineTo
Ellipse (возможно FillEllpise)
http:// pascal.net.ru/Ellipse
http:// pascal.net.ru/FillEllipse
Ссылки без пробелов
Дальше сами