Срочно нужен элементарный компонент "Линия"
В MS Access такой компонент есть. В Делфи такого нет. Самый близкий по
функциональности - TShape, свойство Shape которого может принимать значения:
stCircle The shape is a circle.
stEllipse The shape is an ellipse.
stRectangle The shape is a rectangle.
stRoundRect The shape is a rectangle with rounded corners.
stRoundSquare The shape is a square with rounded corners.
stSquare The shape is a square.

а вот stLine - НЕТ!

Смотрел на toorry.ru - ничего подходящего не нашел.
В RX, LMD, Soho - тоже ничего.

В общем нужен элементарный компонент "Линия", самоотрисовывающийся на форме.
Самому написать такой компонент - ума пока не хватает, хотя для знающих, я уверен, это просто.

Простое рисование на канве не предлагать.
Желательно, чтобы контрол "TLine" имел OnClick.

Может у кого есть такой компонент или знаете где взять.

Заранее благодарен.

TBevel

Это не подойдет :-(
Этот компонент сгодился бы, если бы линия могла лежать на форме не только вертикально и горизонтально, но и под любым углом, т.е. соединять противоположные углы описывающего прямоугольника.
В MS Access линия имеет такую возможность.
Нужен аналог для Delphi.

А почему нельзя нарисовать линию на Canvas?

Да, на канве можно нарисовать...

OK.
Уже написал свой TLine. Правда малость не совсем точно работает, но работает.
На канве рисовать - это тоже вариант. Попробую и так тож.
Спасибо всем за ответы.