Delphi 实现无标题栏覆盖整个屏幕(适合屏保)

Delphi 实现无标题栏，覆盖整个屏幕，这个在做工控机或屏保时或者做护眼保护程序时有用，所以记下

procedure TForm1.FormCreate(Sender: TObject);
begin
  with Form1 do
  begin
    Top := 0;
    Left := 0;
    BorderStyle := bsNone;
    Color:= clBlack;
    WindowState := wsmaximized;
    ClientWidth := Screen.Width;
    ClientHeight := Screen.Height;
    Refresh;
    SetForegroundWindow(Handle);
    SetActiveWindow(Application.Handle);
  end;
end;