  Component Name: ct2IncBtn- 
  Free
  Delphi 2-3

   ct2IncBtn is inherited from TSpeedButton and contains only 1 new additional property:
  Increment. This is a very simple component but I use it a lot and it allows one to count
  the button clicks very easily. 

  Clayton Turner
  cturn@fuse.net
  
  Some examples of use:

  procedure TForm1.ct2IncBtn1Click(Sender: TObject);
  begin
    With ct2IncBtn1 Do
    Increment := Increment + 1;
    Label1.Caption := IntToStr(ct2IncBtn1.Increment);
  end;
 

 {Use it in a CASE statement}
  procedure TForm1.ct2IncBtn1Click(Sender: TObject);
  begin
    With ct2IncBtn1 Do
    Increment := Increment + 1; {or Increment := Increment -1 etc.}
      CASE ct2IncBtn1.Increment Of
      {default is zero}
      1 : Do Something;
      2 : Blah Blah;
      3 : Etc;
    end;
 end;