Как сделать форму всегда позади всех окон?

protected
  procedure CreateParams(var Params: TCreateParams); override;
 
//...
 
procedure TForm.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  if Assigned(Application.MainForm) then
  begin
    Params.WndParent := GetDesktopWindow;
    Params.Style := WS_CHILD;
  end;
end;

Взято с сайта https://www.swissdelphicenter.ch/en/tipsindex.php