как узнать сколько раз нажали TButton

procedure TForm1.Button1Click(Sender: TObject);
[COLOR=gray]var[/COLOR]
[COLOR=gray]S : string;[/COLOR]
begin
Button1.Tag := Button1.Tag + 1;
[COLOR=gray]S := IntToStr(Button1.Tag); //Преобразую integer в String-необязательно[/COLOR]
[COLOR=gray]ShowMessage(S);[/COLOR]
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  S : string;
begin
  Button1.Tag := Button1.Tag + 1;
  if Button1.Tag = 1 then
  begin
    SvaritCofe();
    break;
  end else
  if Button1.Tag = 2 then
  begin
    ShoditVKino();
    break;
  end else
  if Button1.Tag = 3 then
  begin
    VyuchitUroki();
    break;
  end ...
  и т.д. и т.п...
end;

procedure TForm1.Memo1Exit(Sender: TObject);
var Memo: TMemo;
begin
  if Assigned(Sender as TMemo) then
  begin
    Memo := Sender as TMemo;
    Memo.Height := Memo.Lines.Count * Abs(Memo.Font.Height * 2);
  end;
end;

type
  TIncButton = class (TButton)
  private
    FClickCounter: Integer;
  public
    constructor Create(AOwner: TComponent); override;
    procedure Click; override;
    property ClickCounter: Integer read FClickCounter;
  end;
 
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
  private
    procedure BtnClick(Sender: TObject);
  public
    MyButton: TIncButton;
  end;
 
implementation
 
{ TIncButton }
procedure TIncButton.Click;
begin
  inherited Click;
  Inc(FClickCounter);
end;
 
constructor TIncButton.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  Parent := TWinControl(AOwner);
end;
 
{ TForm1 }
procedure TForm1.BtnClick(Sender: TObject);
begin
  Memo1.Lines.Add(IntToStr(MyButton.ClickCounter));
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  MyButton := TIncButton.Create(Self);
  MyButton.Top := 20;
  MyButton.Left := 20;
  MyButton.OnClick := BtnClick;
end;

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Edit1:TEdit; Edit2:TEdit;
  i:integer;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1:=TEdit.Create(Form1); Edit1.Parent:=Form1; Edit1.Visible:=false;
  Edit2:=TEdit.Create(Form1); Edit2.Parent:=Form1; Edit2.Visible:=false;
end;

procedure TForm1.Button1Click(Sender: TObject);
label nac;
begin
nac:
  Button1.Tag := Button1.Tag + 1;
    i := Button1.Tag;
     if i=1 then
      begin
       with Edit1 do
        begin
         Edit1.Visible:=true;
         Left:=16; Top:=40; Width:=121; Height:=21;
         goto nac;
        end;
      end;

    if i=3 then
     begin
      with Edit2 do
       begin
        Edit2.Visible:=true;
        Left:=16; Top:=128; Width:=121; Height:=21;
        goto nac;
       end;
     end;
end;
end.