anchor.diff:    FOffset := -1;
     Width := 100;
     Height := 100;
  -  fTextFileName := C_TEXTFILENAME;
  -  fResourceName := C_TEXTRESOURCENAME;
     fVersionString := C_VERSION;
  -  fTextSource := stStringlist;
     SendToBack;
   
   end;
  
positive.code:   ExtCtrls, LCLIntf, LCLTranslator;
  
  const
    C_TEXTFILENAME = 'scrolling.txt';
    C_TEXTRESOURCENAME = 'scrolltext'; //Note: LResources unit needed
    C_VERSION = '1.0.2.1';
  
  type
    TTextSource = (stStringlist, stTextfile, stResource);
  
negative.code:     FFont: TFont;
      FLinkFont:TFont;
      FBackColor: TColor;
      fVersionString: string;
      function ActiveLineIsURL: boolean;
      procedure DoTimer(Sender: TObject);
      procedure SetActive(const AValue: boolean);
  