VCL-Formulare Grundlagen

unit MainFormUnit;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, Vcl.Forms, Vcl.StdCtrls;

type
  TMainForm = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    FClickCount: Integer;
  public
    property ClickCount: Integer read FClickCount;
  end;

var
  MainForm: TMainForm;

implementation

{$R *.dfm}

procedure TMainForm.FormCreate(Sender: TObject);
begin
  FClickCount := 0;
  Caption := 'My Delphi App';
end;

procedure TMainForm.Button1Click(Sender: TObject);
begin
  Inc(FClickCount);
  Button1.Caption := 'Clicked ' + IntToStr(FClickCount) + ' times';
end;

end.