Use BevelWidth to specify how wide the inner or outer bevel should be. Do not confuse BevelWidth, which is the width of the bevels, with BorderWidth, which is the space between the bevels.

If both the BevelInner and BevelOuter properties are bvNone, BevelWidth has no effect. To remove both bevels, set the BevelInner and BevelOuter properties to bvNone, rather than setting the BevelWidth to 0, as this involves less overhead when painting.

/*
This example uses a panel component and a button named
CreateStatusLine on a form. The code moves the panel to the
bottom of the form when the user clicks the button and gives
the panel the appearance of a status line by changing the
value of the BevelInner, BevelOuter, BevelWidth, and
BorderWidth properties.
*/void__fastcall TForm1::CreateStatusLineClick(TObject *Sender)
{
Panel1->Align = alBottom;
Panel1->BevelInner = bvLowered;
Panel1->BevelOuter = bvRaised;
Panel1->BorderWidth = 1;
Panel1->BevelWidth = 1;
}

{
This example uses a panel component and a button named
CreateStatusLine on a form. The code moves the panel to the
bottom of the form when the user clicks the button and gives
the panel the appearance of a status line by changing the
value of the BevelInner, BevelOuter, BevelWidth, and
BorderWidth properties.
}procedure TForm1.CreateStatusLineClick(Sender: TObject);
beginwith Panel1 dobeginAlign := alBottom;
BevelInner := bvLowered;
BevelOuter := bvRaised;
BorderWidth := 1;
BevelWidth := 1;
end;
end;