Label с закругловатыми углами?

[McLion]

Всем привет,
как сделать в Label закругловатые углы, или можно сделать что то подобное с другой виз. компонентой? А то острый углы как то не красиво смотрятся.

Спасибо!

[serbod]

TShape (Shape := stRoundRect) под TLabel

[McLion]

Класс... дьякую...