procedure THIScreen._work_doBCE;
var
  dm: TDEVMODE;
begin
  ZeroMemory(@dm, sizeof(TDEVMODE));
  dm.dmSize := sizeof(TDEVMODE);
  dm.dmPelsWidth := ReadInteger(_Data,_data_X,_prop_X);
  if dm.dmPelsWidth<>0 then dm.dmFields := DM_PELSWIDTH;
  dm.dmPelsHeight := ReadInteger(_Data,_data_Y,_prop_Y);
  if dm.dmPelsHeight<>0 then dm.dmFields := dm.dmFields or DM_PELSHEIGHT;
  dm.dmDisplayFrequency := ReadInteger(_Data,_data_Frequency,_prop_Frequency);
  if dm.dmDisplayFrequency<>0 then dm.dmFields := dm.dmFields or DM_DISPLAYFREQUENCY;
  dm.dmBitsPerPel := ReadInteger(_Data,_data_BitsPixel,_prop_BitsPixel);
  if dm.dmBitsPerPel<>0 then dm.dmFields := dm.dmFields or DM_BITSPERPEL;
  ChangeDisplaySettings(dm, 0);
end;