1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

 ZeroMemory(@dmScreenSettings, SizeOf(dmScreenSettings));
  with dmScreenSettings do begin              // Bildschirm Einstellungen werden festgelegt
    dmSize       := SizeOf(dmScreenSettings);
    dmPelsWidth  := FWidth;                    // Fenster Breite
    dmPelsHeight := FHeight;                   // Fenster Höhe
    dmBitsPerPel := FPixelDepth;               // Farbtiefe (32bit etc)
    dmFields     := DM_PELSWIDTH or DM_PELSHEIGHT or DM_BITSPERPEL;
  end;

  // Bilschirm Modus auf Vollbild setzen
  if (ChangeDisplaySettings(dmScreenSettings, CDS_FULLSCREEN) = DISP_CHANGE_FAILED) then
  begin
    MessageBox(0, 'Konnte Vollbildmodus nicht aktivieren', 'Error', MB_OK or MB_ICONERROR);
    Fullscreen := False;
    Exit
  end;                    

1:

ChangeDisplaySettings(devmode(nil^),0);