[boxep]

Как сделать что бы восстанавливало изображение после полного или частичного перекрытия формы.
У меня рисуется круг, но как перекрою окно изображения пропадает...

Задание:

Из центра PaintBox не слишком быстро (заметно для пользователя) рисуются разноцветные окружности со все увеличивающимися радиусами. Когда окружности перестают вмещаться в PaintBox, он очищается, и процесс начинается с начала.

а это код программы

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=True;
xg:=250;
yg:=250;
k:=1;
end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin
randomize;
if k<250 then
begin
a:=random(255);
b:=random(255);
c:=random(255);
PaintBox1.Canvas.Pen.Color:=RGB(a,b,c);
PaintBox1.Canvas.Brush.Style:=bsClear;
PaintBox1.Canvas.Ellipse(xg-k,yg-k,xg+k,yg+k);
inc(k);
end
else
begin
k:=1;
PaintBox1.Canvas.Brush.Color:=clBtnFace;
PaintBox1.Canvas.FillRect(Rect(0,0,500,500));
end;
end;