[Ankor]

Спасибо огромное, Ваш пример работает!

Добавил WordWrap:=self.WordWrap; и // убрал из функции
procedure TLabel.AddShadowText(widthh: byte; colorr: integer);

Незнаю, зачем вы их поставили, главное что работает!
Премного благодарен.