anchor.diff:      FShadow: Integer;
       FBorder: Integer;
       FMargin: Integer;
  -    T_Chrono: TfpgTimer;
  +    FTimer: TfpgTimer;
       FHintTextRec: TfpgRect;
       FText: TfpgString;
       procedure   FormShow(Sender: TObject);
       procedure   FormHide(Sender: TObject);
       function    GetText: TfpgString;
       procedure   SetText(const AValue: TfpgString);
  -    procedure   T_ChronoFini(Sender: TObject);
  +    procedure   HintTimerFired(Sender: TObject);
       procedure   SetShadow(AValue: Integer);
       procedure   SetBorder(AValue: Integer);
       procedure   SetTime(AValue: Integer);
  
positive.code: 
  procedure TfpgHintWindow.FormShow(Sender: TObject);
  begin
    T_Chrono.Enabled:= True;
  end;
  
  procedure TfpgHintWindow.FormHide(Sender: TObject);
  begin
    T_Chrono.Enabled := False;
    if Assigned(uShadowForm) then
      uShadowForm.Hide;
  end;
  
negative.code:   if FTime <> AValue then
    begin
      FTime := AValue;
      FTimer.Interval := FTime;
    end;
  end;
  
  