скажите пожалуйста по какой причине в моей делфи-программе один из кругов становится голубым только после того как я второй раз нажму кнопку

на форме. вот сам код procedure TForm1.Button1Click(Sender: TObject);

var a: integer;

begin

a:=2;

form1.Canvas.ellipse(a, a, 20*a, 20*a);

sleep(2000);

form1.Canvas.Pen.Color:=clred;

form1.Canvas.ellipse(10*a, a, 30*a, 20*a);

sleep(2000);

form1.canvas.pen.color:=clMoneyGreen;

form1.Canvas.ellipse(1*a, 15*a, 20*a, 45*a);

sleep(2000);

form1.canvas.Pen.Color:=clBlue;

form1.Canvas.ellipse(20*a, a, 30*a, a);

end;

end.