Use the auto-size width.
procedure AutoSizeWidth;
DefaultSizeWidth
JamSystemShellView.TJamShellViewColumn