Создание кнопки в delphi . Комметарии к коду

[Beren42]

У меня есть код создание кнопки , но мало что понятно. Объясните кто-нибудь. Спасибо

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure Button21Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }

    {Перегрузка (Переназначение) процедуры click}
    procedure click; overload;
  end;

var
  Form1: TForm1;

  {глобальная переменная}
  ButtonBufer: integer;

implementation

  {$R *.dfm}

  {Переопределение сигнала click}
  procedure click;
  begin
    inherited click;
    if Button11.FResizable = True then
    begin
      ButtonBufer := ButtonBuffer + 1;
      Button11.Text := IntToStr(ButtonBuffe)
    end
    else
    begin
      Button11.Text := '0'
    end;
  end;

  {Инициализация переменной ButtonBufer при рисовании окна программы}
  procedure TForm1.FormShow(Sender: TObject);
  begin
    ButtonBufer := 0
  end;

end.

[veniside]

> У меня есть код создание кнопки

неа, у вас есть бессмысленный набор букв, объяснять тут нечего.

[Beren42]

То и оно ,что мало понятного тут (

[Valio]

Неочень похоже на "код создания кнопки".

[Beren42]

А так

Unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button41: TButton4;
    procedure Button21Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button41Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }

    {Перегрузка (Переназначение) процедуры click}
    procedure click; overload;
  end;

var
  Form1: TForm1;

  {глобальная переменная}
  ButtonBufer: integer;

implementation

  {$R *.dfm}

  {Инициализация переменной ButtonBufer при рисовании окна программы}
  procedure TForm1.FormShow(Sender: TObject);
  begin
    ButtonBufer := 0
  end;

{Переопределение сигнала click}
procedure TForm1.Button41Click(Sender: TObject);
begin
  inherited click;
  if Button11.FResizable = True then
  begin
    ButtonBufer := ButtonBuffer + 1;
    Button11.Text := IntToStr(ButtonBuffe)
  end
  else
  begin
    Button11.Text := '0'
  end
end;

end.