TrackBar - com linha fina

// Para criar um TrackBar com linha fina faça o seguinte:

uses CommCtrl;

type

  TTrackBar = class(ComCtrls.TTrackbar)

  protected

    procedure CreateParams(var Params: TCreateParams); override;

  end;

  TForm1 = class(TForm)

    TrackBar1: TTrackBar;

  private

  public

  end;

implementation

procedure TTrackBar.CreateParams(var Params: TCreateParams);

begin

  inherited;

  Params.Style := Params.Style and not TBS_ENABLESELRANGE;

end;