Размер формы и компонентов, а также их размеры и положение при развернутом состоянии во всех размерах экранов

DEVMODE dm;
dm.dmSize = sizeof(DEVMODE);
int index = 0;
while (EnumDisplaySettings(NULL, index, &dm))
{
 if (dm.dmPelsWidth == 1980 && dm.dmPelsHeight == 1080) //Типа если размер экрана 1980х1080. Дальше надо как-то.. то при разворачивании окна программы(Программа 800х600) Компоненты задаются по размерам и положениям.
 {
 
}
...
else if (dm.dmPelsWidth == 1600 && dm.dmPelsHeight == 900)
{
 
}
else if (dm.dmPelsWidth == 1280 && dm.dmPelsHeight == 900)
{
 
 
//Как дальше? Или как по другому?

DEVMODE dm;
dm.dmSize = sizeof(DEVMODE);
int index = 0;
while (EnumDisplaySettings(NULL, index, &dm))
{
 if (dm.dmPelsWidth == 800 && dm.dmPelsHeight == 600)
 {

void __fastcall TForm1::FormShow(TObject *Sender)
{
 int screenW=GetSystemMetrics(SM_CXSCREEN);//Ïîëó÷èòü øèðèíó ýêðàíà
 int screenH=GetSystemMetrics(SM_CYSCREEN);//Ïîëó÷èòü âûñîòó ýêðàíà
   if (screenW==1280 && screenH==1024)
   {
       Button1->Width=150;
       }
   }
//---------------------------------------------------------------------------

Screen->Width

void __fastcall TForm1::FormShow(TObject *Sender)
{
   if (Screen->Width==1280 && Screen->Height==1024)
   {
       Button1->Width=150;
       }
   }

Button1->ScaleBy(2,1);// Увеличить размер кнопки в 2/1 ( в два раза)

void __fastcall TForm1::FormResize(TObject *Sender)
{
if (Screen->Width==1920 && Screen->Height==1080 && Form1->Width==800 & Form1->Height==600)
   {
      Button1->Width=100; //Маленькое окно
       Button1->Height=50;
       Button2->Width=100;
       Button2->Height=50;
       Button2->Left=112;
       } else
       {
        Button1->Width=250; //Развернутое.
       Button1->Height=200;
       Button2->Width=250;
       Button2->Height=200;
       Button2->Left=200;
 
 
       }
 
}