anchor.diff:    if FTime <> AValue then
     begin
       FTime := AValue;
  -    T_Chrono.Interval := FTime;
  +    FTimer.Interval := FTime;
     end;
   end;
   
  
positive.code:   FShadow := 0; // no shadow by default
    FTime := 5000; // show hint for 5 seconds then close
    FHintTextRec.SetRect(FBorder, FBorder, Width-(FBorder*2), Height-(FBorder*2));
    T_Chrono := TfpgTimer.Create(FTime);
    T_Chrono.OnTimer := @T_ChronoFini;
    uShadowForm:= TfpgHintShadow.Create(nil);
    OnClick := @T_ChronoFini;
    OnShow := @FormShow;
    OnHide := @FormHide;
  end;
  
  destructor TfpgHintWindow.Destroy;
  begin
    T_Chrono.Enabled := False;
    T_Chrono.Free;
    FFont.Free;
    inherited Destroy;
    uShadowForm.Free;
  
negative.code: 
  procedure TfpgHintWindow.FormShow(Sender: TObject);
  begin
    FTimer.Enabled:= True;
  end;
  
  procedure TfpgHintWindow.FormHide(Sender: TObject);
  begin
    if Assigned(uShadowForm) then
      uShadowForm.Hide;
  end;
  