Well, if you don't need text then use TBevel and set its property Shape to bsLeftLine or bsRightLine.
If you need text you can extend (send patch to) TDividerBevel. New property Orientation (horizontal as default) + some painting, it shouldn't be hard.