маленькая программа

[lg12]

как подсчитать сколько раз была нажата кнопка buttonClick вот мой код

procedure TForm1.FormCreate(Sender: TObject);
var k:integer;
begin
k:=0;
end;
procedure TForm1.Button1Click(Sender: TObject);
var k:integer;
begin
k:=k+1;
label1.Caption:=inttostr(k);
end;

[Utkin]

Объяви k как глобальную и считай на здоровье. Иначе в обработке клика ты каждый раз имеешь шанс получать рандомные значения (но никак не сколько нажато). И убери объявление k в Button1Click и FormCreate

[puporev]

var
  Form1: TForm1;
  k:integer;//k-глобальная переменная
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
k:=0;//обнуляем k
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
k:=k+1;//считаем
label1.Caption:=inttostr(k);
end;

[Stilet]

Можно проще:

procedure TForm1.Button1Click(Sender: TObject);
begin
TButton(sender).tag:=TButton(sender).tag+1;
label1.Caption:=inttostr(TButton(sender).tag);
end;

Без лишних переменок.