Określenie rozdzielczości ekranu

Aby po kliknięciu przycisku Button1 na etykiecie Label1 została wyświetlona rozdzielczość ekranu odczytujemy właściwość Screen->Width i Screen->Height, a za pomocą funkcji IntToStr() konwertujemy otrzymane liczby na łańcuch AnsiString:

Unit1.cpp

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   Label1->Caption = IntToStr(Screen->Width) + "x" + IntToStr(Screen->Height);
}

lub używamy funkcji Windows API GetSystemMetrics():

Unit1.cpp

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   Label1->Caption = IntToStr(GetSystemMetrics(SM_CXSCREEN)) + "x" +
                              IntToStr(GetSystemMetrics(SM_CYSCREEN));
}