Resize Form even if it is borderless - Remove bevel edge
<p>Using the following code to make a borderless form resizable works great:</p>

<pre><code>type
 TForm1 = class(TForm)
 protected
   procedure CreateParams(var Params: TCreateParams); override;
 end;

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
 BorderStyle := bsNone;
 inherited;
 Params.ExStyle := Params.ExStyle or WS_EX_STATICEDGE;
 Params.Style := Params.Style or WS_SIZEBOX;
end;
</code></pre>

<p>But, see the image:</p>

<p><a href="https://i.stack.imgur.com/SNPte.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/SNPte.png" alt="enter image description here"></a>
Why at the top is there a bevel around the edge.? Any suggestions to remove it?</p>