[angvelem]

Не смеши, это настолько легко делается, что TShape-у просто тут делать нечего. А в API имеется функция, которая и соответственный рисунок на угол накладывает (тот полосатенький ).