[[escafandra]]

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var
  P: TPoint;
begin
   Button1.ShowHint:= true;
   P.X:= 10;
   P.Y:= 10;
   Windows.ClientToScreen(Button1.Handle, P);
   SetCursorPos(P.X, P.Y);
   Application.ActivateHint(P);
end;

Saludos.