procedure TForm1.AdvOfficeHint1BeforeShowHint(Sender: TObject;
  AControl: TControl; AHintInfo: TAdvHintInfo; var UseOfficeHint: Boolean);
begin
  if AControl = AdvSmoothButton1 then
  begin
    UseOfficeHint := true;  // set true to tell the TAdvOfficeHint it should display the hint in Office 2007 style
    AHintInfo.Title := 'Button title';
    AHintInfo.Notes.Text := AControl.Hint;
    AHintInfo.Picture.LoadFromFile(''); // optionally add a hint picture here from file, resource or stream
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  // set the standard Hint to make sure it shows, this is reused as hint notes
  AdvSmoothButton1.Hint := 'Smooth button hint';
end;