TAbSelList

type TAbSelList = class

protected

  FList: TList;

  FCurrent: LongInt;

public

  constructor Create;

  destructor Destroy; override;

  procedure Clear;

  procedure Deselect();

  function IsSelected();

  procedure Select();

  procedure SelectAll();

  function SelCount;

  procedure Toggle();

  function FindFirst;

  function FindNext;

end;

TAbSelList

TObject