void __fastcall TForm1::FormCreate(TObject *Sender)
{
    // ЗАМЕЧАНИЕ: при изменении параметров смотрите чтобы
    // монитор поддерживал этот режим и частоту
    DEVMODE DM;
    DM.dmSize = sizeof(DEVMODE);
    DM.dmBitsPerPel =  16 ; // глубина цвета
    DM.dmPelsWidth =  800 ; // разрешение по горизонтали
    DM.dmPelsHeight =  600 ; // разрешение по вертикали
    DM.dmFields = DM_BITSPERPEL +
                  DM_PELSWIDTH +
                  DM_PELSHEIGHT +
                  DM_DISPLAYFREQUENCY;
    DM.dmDisplayFrequency =  75 ; // частота обновления экрана
    ChangeDisplaySettings(&DM,  0 );
}