폼에 버튼이 두개 있습니다. Button1과 Button2가 있는데

1. Button1을 누르면 (0,0)에서 (100,100)까지 선을 그립니다.
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    TCanvas *pCanvas = new TCanvas;
    pCanvas->Handle = GetDC(Panel1->Handle);
    pCanvas->Pen->Color = clBlack;
    pCanvas->MoveTo(0,0);
    pCanvas->LineTo(100,100);
    delete pCanvas;
}

2. 버튼 2를 누르면 앞에서 Panel상에 그려졌던 선이
   지워질거라고 생각되는데 생각되로 지워지지 않는군요.
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
    TCanvas *pCanvas = new TCanvas;
    pCanvas->Handle = GetDC(Panel1->Handle);
    SetROP2(pCanvas->Handle, R2_XORPEN);
    pCanvas->Pen->Color = clBlack;
    pCanvas->MoveTo(0,0);
    pCanvas->LineTo(100,100);
    delete pCanvas;
}

이유를 지적해 주시면 감사하겠습니다.