Чего мне не хватает при использовании Application.ActivateHint?

Question

Я пытаюсь использовать Application.ActivateHint в кнопке, чтобы показать ее подсказку.
Это просто не работает, подсказка не отображается в целевой кнопке.
Там нет контейнера за пределами формы.

procedure TForm1.btn2Click(Sender: TObject);
var 
  PosScr1: TPoint;
  Btn_Test: TButton;

begin
  Btn_Test := nil;

  Btn_Test := TButton(Self.FindComponent('Btn_Test'));
  if not Assigned(Btn_Test) then
  begin
    // Generated by GExperts "Component to Code"
    // To clone the original target button 
    // and leave the method self-suficient for
    // StackOverflow
    Btn_Test := TButton.Create(Self);
    with Btn_Test do
    begin
      Name := 'Btn_Test';
      Parent := Self;
      Left := 176;
      Top := 56;
      Width := 75;
      Height := 25;
      Hint := 'Testing';
      Caption := 'Btn_Test';
      ParentShowHint := False;
      ShowHint := True;
      TabOrder := 0;
    end;
    //***********************
  end;

  PosScr1 := ClientToScreen(Btn_Test.BoundsRect.TopLeft);
  Application.ActivateHint(PosScr1);  
end;