Нарисовать, стереть в paintbox

[Intodd]

Начнем с того, что я новичок в делфи. У меня возникла проблема:
Задача заключается в том, чтобы по клику на баттон рисовался квадрат в пейнтбоксе. После вторго клика он стирался. После третьего снова появлялся(или рисовался заново, лишь бы его было видно). Ну и так в цикле.

Пробовал менять pantbox1.visible но с этим ничего не вышло.

вот код моих попыток что-то сделать (процедура там использована только потому, что задание поставлено сделать с процедурой)

procedure TForm1.Button1Click(Sender: TObject);
Procedure kvadrat;
  begin
    if t mod 2<>0 then
      begin
        with paintbox1, canvas do
          begin
        {  paintbox1.visible:=true } {не помогло}
          brush.Color:=clRed;
          Rectangle(10,10,100,100);
          end;
      end
      else paintbox1.visible:=false;
    end;
begin
kvadrat;
t:=t+1;

end;

procedure TForm1.FormShow(Sender: TObject);
begin
t:=1;
end;

Спасибо

[Intodd]

Решил проблему.
строчкой
else
begin
paintbox1.visible:=false;
paintbox1.Visible:=true;
end;