Delphi Interceptor Class

interceptor.pas

{ If you make use of this unit last, the TButton component will be intercepted 
  and contain the new LastClickTime property }
unit button_interceptor;  

interface  

uses 
  stdctrls, sysutils, DateUtils;  

type   
  TButton = class(stdctrls.TButton)   
  private     
    fLastClickTime: TDateTime;   
  public     
    procedure Click; override;   
    property LastClickTime : TDateTime  read fLastClickTime write fLastClickTime;   
  end;  
  
implementation  

procedure TButton.Click; 
const
  ClickWaitPeriod = 2; 
var
  clickTime : TDateTime; 
begin   
  clickTime := Now;   
  if SecondsBetween(clickTime, LastClickTIme) > ClickWaitPeriod then      
  inherited   
  else     
    Beep;    
  LastClickTime := clickTime; 
end;  

end.