Árnyék létrehozása a Hint ablak mögé

type
  TXPHintWindow = class(THintWindow)
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  end;

procedure TXPHintWindow.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.WindowClass.Style:=Params.WindowClass.Style+CS_DROPSHADOW;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  HintWindowClass:=TXPHintWindow;
  Application.HintPause:=0;
end;