anchor.diff:    if FTime <> AValue then
     begin
       FTime := AValue;
  -    T_Chrono.Interval := FTime;
  +    FTimer.Interval := FTime;
     end;
   end;
   
  
positive.code:   FText := AValue;
  end;
  
  procedure TfpgHintWindow.T_ChronoFini(Sender: TObject);
  begin
    {$IFDEF DEBUG}
    writeln('DEBUG:  TfpgHintWindow.T_ChronoFini timer fired');
    {$ENDIF}
    Hide;
  end;
  
  
negative.code:     FShadow: Integer;
      FBorder: Integer;
      FMargin: Integer;
      FTimer: TfpgTimer;
      FHintTextRec: TfpgRect;
      FText: TfpgString;
      procedure   FormShow(Sender: TObject);
      procedure   FormHide(Sender: TObject);
      function    GetText: TfpgString;
      procedure   SetText(const AValue: TfpgString);
      procedure   HintTimerFired(Sender: TObject);
      procedure   SetShadow(AValue: Integer);
      procedure   SetBorder(AValue: Integer);
      procedure   SetTime(AValue: Integer);
  