void __fastcall TForm1::Button1Click(TObject *Sender)
{
    TCanvas *pCanvas = new TCanvas;
    pCanvas->Handle = ::GetDC(Panel1->Handle);
    pCanvas->Pen->Color = clBlue;
    pCanvas->Pen->Mode = pmXor;
    pCanvas->MoveTo(0,0);
    pCanvas->LineTo(100,100);
    ::ReleaseDC(Panel1->Handle, pCanvas->Handle);
    delete pCanvas;

}
//---------------------------------------------------------------------------

이 코드로 테스트 해 보세요. 버튼2도 필요 없슴다.
하나만 박아넣고 버튼을 계속 눌러보세요.