Как программно повернуть изображение на экране на 90 градусов?

void __fastcall TForm1::RadioGroupClick(TObject *Sender)
{
   DEVMODE dm;
   // initialize the DEVMODE structure
   ZeroMemory(&dm, sizeof(dm));
   dm.dmSize = sizeof(dm);
 
   if (0 != EnumDisplaySettings(NULL, ENUM_CURRENT_SETTINGS, &dm))
   {
      // determine new orientaion
      unsigned long dwDO = dm.dmDisplayOrientation, DisplayOrientation[4] = {DMDO_DEFAULT, DMDO_90, DMDO_180, DMDO_270};
      dm.dmDisplayOrientation = DisplayOrientation[RadioGroup->ItemIndex];
//    if (abs(dm.dmDisplayOrientation - dwDO) % 2)  // если поворот на 90 или 270 градусов; костыль
      // если поворот на 90 или 270 градусов
      if (
          ((dwDO == DMDO_DEFAULT || dwDO == DMDO_180) && (dm.dmDisplayOrientation == DMDO_90 || dm.dmDisplayOrientation == DMDO_270))
            ||
          ((dwDO == DMDO_90 || dwDO == DMDO_270) && (dm.dmDisplayOrientation == DMDO_DEFAULT || dm.dmDisplayOrientation == DMDO_180))
         )
         {
            // swap height and width
            DWORD dwTemp = dm.dmPelsHeight;
            dm.dmPelsHeight= dm.dmPelsWidth;
            dm.dmPelsWidth = dwTemp;
         }
 
      long lRet = ChangeDisplaySettings(&dm, 0);
      if (DISP_CHANGE_SUCCESSFUL != lRet)
      {
         // add exception handling here
      }
   }
}