C++,  Rad Studio IDE. Исправь ошибку: при нажатии на кнопку рисунки накладываются друг на друга, потому что FormPaint постоянно срабатывает

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit9.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm9 *Form9;
int state = 0;
//---------------------------------------------------------------------------
__fastcall TForm9::TForm9(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm9::Button1Click(TObject *Sender)
{
    state++;
    state %= 2;
    if (state == 0)
    {
	Form9->Refresh(); //  очистить предыдущий рисунок

    Form9->Canvas->Pen->Width=2;
    Form9->Canvas->MoveTo(25,25);
    Form9->Canvas->LineTo(25,87);
    Form9->Canvas->MoveTo(10,90);
    Form9->Canvas->LineTo(25,147);
    Form9->Canvas->LineTo(25,200);
    Form9->Canvas->LineTo(80,200);
    Form9->Canvas->MoveTo(140,200);
    Form9->Canvas->LineTo(200,200);
	Form9->Canvas->LineTo(200,25);

    Form9->Canvas->LineTo(125,25);
    Form9->Canvas->LineTo(125,5);
	Form9->Canvas->LineTo(125,45);

	Form9->Canvas->MoveTo(100,25);
	Form9->Canvas->LineTo(100,15);
	Form9->Canvas->LineTo(100,35);
	Form9->Canvas->MoveTo(100,25);
	Form9->Canvas->LineTo(25,25);



	Form9->Canvas->MoveTo(106,25);
	Form9->Canvas->LineTo(106,5);
	Form9->Canvas->LineTo(106,45);
	Form9->Canvas->MoveTo(119,25);
	Form9->Canvas->LineTo(119,15);
	Form9->Canvas->LineTo(119,35);



    Canvas->Brush->Color=clWhite;
    Form9->Canvas->Ellipse(80,170,140,220);
    Form9->Canvas->MoveTo(87,180);
    Form9->Canvas->LineTo(133,210);
    Form9->Canvas->MoveTo(87,210);
    Form9->Canvas->LineTo(133,180);
    }
    else
    {
    Form9->Refresh();
    Form9->Canvas->Pen->Width=2;
    Form9->Canvas->MoveTo(25,25);
    Form9->Canvas->LineTo(25,200);
    Form9->Canvas->LineTo(80,200);
    Form9->Canvas->MoveTo(140,200);
    Form9->Canvas->LineTo(200,200);
    Form9->Canvas->LineTo(200,25);
    Form9->Canvas->LineTo(125,25);
    Form9->Canvas->LineTo(125,5);
    Form9->Canvas->LineTo(125,45);

    Form9->Canvas->MoveTo(100,25);
    Form9->Canvas->LineTo(100,15);
    Form9->Canvas->LineTo(100,35);
    Form9->Canvas->MoveTo(100,25);
	Form9->Canvas->LineTo(25,25);


	Form9->Canvas->MoveTo(106,25);
	Form9->Canvas->LineTo(106,5);
	Form9->Canvas->LineTo(106,45);
	Form9->Canvas->MoveTo(119,25);
	Form9->Canvas->LineTo(119,15);
	Form9->Canvas->LineTo(119,35);



    Canvas->Brush->Color=clYellow;
    Form9->Canvas->Ellipse(80,170,140,220);
    Form9->Canvas->MoveTo(87,180);
    Form9->Canvas->LineTo(133,210);
    Form9->Canvas->MoveTo(87,210);
    Form9->Canvas->LineTo(133,180);

    Form9->Canvas->Pen->Color=clYellow;
    Form9->Canvas->MoveTo(77,170);
    Form9->Canvas->LineTo(47,145);

    Form9->Canvas->MoveTo(110,155);
    Form9->Canvas->LineTo(110,125);

    Form9->Canvas->MoveTo(147,170);
	Form9->Canvas->LineTo(177,145);
	Form9->Canvas->Pen->Color=clBlack;
	}
}
//---------------------------------------------------------------------------


void __fastcall TForm9::FormPaint(TObject *Sender)
{
    Canvas->Pen->Width=2;
    Canvas->MoveTo(25,25);
    Canvas->LineTo(25,87);
    Canvas->MoveTo(10,90);
    Canvas->LineTo(25,147);
    Canvas->LineTo(25,200);
    Canvas->LineTo(80,200);
    Canvas->MoveTo(140,200);
    Canvas->LineTo(200,200);
    Canvas->LineTo(200,25);

    Canvas->LineTo(125,25);
    Canvas->LineTo(125,5);
    Canvas->LineTo(125,45);

    Canvas->MoveTo(100,25);
    Canvas->LineTo(100,15);
    Canvas->LineTo(100,35);
    Canvas->MoveTo(100,25);
    Canvas->LineTo(25,25);

    Canvas->MoveTo(106,25);
    Canvas->LineTo(106,5);
    Canvas->LineTo(106,45);
    Canvas->MoveTo(119,25);
    Canvas->LineTo(119,15);
    Canvas->LineTo(119,35);

    Canvas->Brush->Color=clWhite;
    Canvas->Ellipse(80,170,140,220);
    Canvas->MoveTo(87,180);
    Canvas->LineTo(133,210);
    Canvas->MoveTo(87,210);
    Canvas->LineTo(133,180);
}
//---------------------------------------------------------------------------