...
private
procedure CreateParams(var Params: TCreateParams); override;
end;
...
implementation
...
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;
...