Несколько кликов на кнопку

var
  Form1: TForm1;
  k:integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
k:=k+1;
if k=5 then Label1.Caption:='Это 5 нажатие'
end;

var
  Form1: TForm1;
  count:Integer; //глобальная переменная
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormShow(Sender: TObject);
begin
Label1.Caption :='МЕТКА появилась!!';
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
inc(count);
if count mod 5 = 0 then label1.Visible :=not Label1.Visible;
 
end;
 
end.

procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.Tag:=Button1.Tag+1;
  if Button1.Tag=5 then Label1.Caption:='Это 5 нажатие'
end;

  TMyButton = class(TButton)
    private
      FCounter: Integer;
      FOnFifthClick: TNotifyEvent;
 
    public
      constructor Create(AOwner: TComponent); override;
      destructor Destroy; override;
      procedure Click; override;
      property OnFifthClick: TNotifyEvent read FOnFifthClick write FOnFifthClick;
  end;
 
  TButton = class(TMyButton);
 
...
 
constructor TMyButton.Create(AOwner: TComponent);
begin
  inherited;
 
  FCounter := 0;
end;
 
destructor TMyButton.Destroy;
begin
  inherited;
end;
 
procedure TMyButton.Click;
begin
  FCounter := FCounter + 1;
  if (FCounter >= 5)and Assigned(FOnFifthClick) then
    begin
      FCounter := 0;
      FOnFifthClick(Self);
    end;
end;

  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
  private
    procedure OnFifeClick(Sender: TObject);
  public
    { Public-Deklarationen }
  end;
 
...
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1.OnFifthClick := OnFifeClick;
end;
 
procedure TForm1.OnFifeClick(Sender: TObject);
begin
  ShowMessage('I am fifth click...');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  (Sender as TButton).Tag:=(Sender as TButton)+1;
  if (Sender as TButton).Tag=5 then Label1.Caption:='Это 5 нажатие'
end;