[angvelem]

А зачем проверять состояние кнопки? Если она запрещена, то и так не нажмёшь.

Код:

var
  m : integer;

procedure TForm1.Button3Click(Sender: TObject);
begin
  inc(m);
  Label4.Caption := IntToStr(m);
end;

m должна быть глобальной.