Wäre es nicht besser, TKreis von
TGraphicControl abzuleiten und dann natürlich auf dessen eigenen Canvas zu zeichnen anstatt fix auf den der "Form1"?!
Nachtrag:
Wenn man den Kreis nicht ausgefüllt haben möchte, setzt man nicht Canvas.Brush.Color auf irgend etwas sondern statt dessen Canvas.Brush.Style auf
bsClear.