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;