[lmikle]

попробуй так:

Код:

procedure TLabel.AddShadow(x: integer = 3; y: integer = 1; colorr : integer = 0);
begin
  with TLabel.Create(self) do begin
    parent:=self.Parent;
    font:=self.Font;
    Top:=self.Top+y;
    Left:=self.Left+x;
    Font.Color:=colorr;
    caption:=self.Caption;
    transparent:=true;
    Alignment := Self.Alignment;
  end;
  self.Transparent:=true;
  self.BringToFront;
end;

С WordWrap можно попробовать так же, но там ситуация посложнее.