anchor.diff:    AText: string; AFocusedIndex: integer; out AButtonIndex: integer; out AStateText: string);
   var
     F: TForm;
  -  Res, NIndex: integer;
  +  Res: integer;
     SItem: string;
     Dummy: TDummyClass;
   begin
  
positive.code: 
  uses
    Classes, SysUtils, Graphics, Controls, StdCtrls, ExtCtrls, Forms,
    CheckLst, Spin,
    LclProc, LclType,
    ATStringProc;
  
  
negative.code: 
    if C is TSpinEdit then
      Result:= IntToStr((C as TSpinEdit).Value);
  
    if C is TListView then
      Result:= IntToStr((C as TListView).ItemIndex);
  end;
  
  
  