Zmiana kursora dla pojedynczego komponentu i całego formularza

Aby po kliknięciu przycisku Button1 zmienić kształt kursora tylko dla danego komponentu:

Unit1.cpp

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   Button1->Cursor = crCross;
}

A żeby po kliknięciu przycisku Button2 zmienić kształt kursora dla wszystkich komponentów na formularzu:

Unit1.cpp

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   Screen->Cursor = crCross;
}