THeaderControl - Section - Hint

[exdatis]

Hi there!
To set  THeaderControl-Section-Hint I use:

procedure TfrmCustomerPayment.hcTabsMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  if (x in [hcTabs.Sections.Items[0].Left.. hcTabs.Sections.Items[0].Right]) then
    begin
      hcTabs.ShowHint:= False;  {* hcTabs : THeaderControl *}
      hcTabs.Hint:= 'First';
      hcTabs.ShowHint:= True;
      Exit;
    end;

  if (x in [hcTabs.Sections.Items[1].Left.. hcTabs.Sections.Items[1].Right]) then
    begin
      hcTabs.Hint:= '';
      hcTabs.ShowHint:= False;
      hcTabs.Hint:= 'Second ';
      hcTabs.ShowHint:= True;
      Exit;
    end;           
.........       

is there an easier way to set THeaderControl-Section-Hint ?
Thank you