Was ist denn nun die Frage?
Vielleicht...
Wie zeichne ich einen Kreis in Delphi mit Bordmitteln?
Delphi-Quellcode:
...
CanvasDerZeichenfläche.Ellipse(30, 30, 100, 100);
...
Die ersten beiden Zahlen geben die Koordinate für die linke obere Ecke eines Rechtecks an
die beiden letzten Zahlen die Koordinate für die linke untere Ecke eines Rechtecks an.
Innerhalb dieses von dir bestimmten Rechtecks wird eine Ellipse gezeichnet.
Ist das Rechteck ein Quadrat, wird ein Kreis gezeichnet.
Du musst also nur die Eckenkoordinaten beim Countdown neu setzen und schon hast du was du
wahrscheinlich möchtest.