procedure THIMainForm.SetBorderStyle;
const
 NmMask = not(WS_CAPTION or WS_THICKFRAME or WS_MAXIMIZEBOX or WS_MINIMIZEBOX);
 NmSet:array[0..7] of dword =(0,
  WS_CAPTION or WS_MAXIMIZEBOX or WS_MINIMIZEBOX,
  WS_CAPTION or WS_THICKFRAME or WS_MAXIMIZEBOX or WS_MINIMIZEBOX,
  WS_CAPTION,
  WS_CAPTION,
  WS_CAPTION or WS_THICKFRAME,
  WS_MAXIMIZEBOX or WS_MINIMIZEBOX,
  WS_CAPTION or WS_MAXIMIZEBOX or WS_MINIMIZEBOX
 );
 ExMask = not(WS_EX_DLGMODALFRAME or WS_EX_WINDOWEDGE or WS_EX_TOOLWINDOW);
 ExSet:array[0..7] of dword =(0,0,0,
  WS_EX_WINDOWEDGE,
  WS_EX_TOOLWINDOW,
  WS_EX_TOOLWINDOW,
  WS_EX_DLGMODALFRAME,
  0
 );
begin
  if Value>7 then exit;
  Control.GetWindowHandle;
  with Control{$ifndef F_P}^{$endif} do
   begin
    Style   :=   (Style and NmMask)or NmSet[Value];
    ExStyle := (ExStyle and ExMask)or ExSet[Value];
   end;
end;

Add(MainForm,11521260,371,168)
{
 Left=20
 Top=105
 BorderStyle=3
 Point(doBorderStyle)
}
Add(Button,2150128,238,196)
{
 Left=155
 Top=90
 Data=String(bsDialog)
 link(onClick,11521260:doBorderStyle,[])
}
Add(Button,12143528,238,147)
{
 Left=310
 Top=220
 Caption="Закрыть"
 link(onClick,11521260:doClose,[(317,153)(317,195)])
}

Add(PlaySound,4898878,336,77)
{
}