[YVitaliy]

Тут все просто, добавь в модуль эти 4 строки, и будет тебе счастье...

Код:

procedure TLabel.AddShadow(x: integer = 3; y: integer = 1; colorr : integer = 0);
var sh: TLabel;
begin
  sh:=TLabel.Create(self.Owner);
  with sh do begin
    Alignment:=self.Alignment;
    Autosize:=self.AutoSize;
    parent:=self.Parent;
    font:=self.Font;
    Top:=self.Top+y;
    Left:=self.Left+x;
    width:=self.width;
    height:=self.Height;
    Font.Color:=colorr;
    caption:=self.Caption;
    transparent:=true;
    end;
  self.Transparent:=true;
  self.BringToFront;
  shad.Add(sh);
end;