Nicht deklarierter Bezeichner

[Gor]

Problem gelöst, danke.

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Addierer_Button_Plus: TButton;
    Addierer_Button_Minus: TButton;
    Addierer_Anzeige: TLabel;
    Panel1: TPanel;
    Addierer_Name: TLabel;
    StatusBar1: TStatusBar;
    procedure Addierer_Button_PlusClick(Sender: TObject);
    procedure Addierer_Button_MinusClick(Sender: TObject);
    procedure Aktion(const aktname: string);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  Aktanzahl: integer;
implementation

{$R *.dfm}

procedure TForm1.Aktion(const aktname: string);
begin
   StatusBar1.Panels[0].Text := 'Aktion: '+aktname;
   Aktanzahl := Aktanzahl+1;
   StatusBar1.Panels[1].Text := 'Aktionen durchgefuhrt: '+IntToStr(Aktanzahl);
end;

procedure TForm1.Addierer_Button_PlusClick(Sender: TObject);
begin
   Addierer_Anzeige.Caption := IntToStr(StrToInt(Addierer_Anzeige.Caption)+1);
   {StatusBar1.Panels[0].Text := 'Aktion: Addiert';
   Aktanzahl := Aktanzahl+1;
   StatusBar1.Panels[1].Text := 'Aktionen durchgefuhrt: '+IntToStr(Aktanzahl);}
   Aktion('Addiert');
end;

procedure TForm1.Addierer_Button_MinusClick(Sender: TObject);
begin
   Addierer_Anzeige.Caption := IntToStr(StrToInt(Addierer_Anzeige.Caption)-1);
   {StatusBar1.Panels[0].Text := 'Aktion: Subtrahiert';
   Aktanzahl := Aktanzahl+1;
   StatusBar1.Panels[1].Text := 'Aktionen durchgefuhrt: '+IntToStr(Aktanzahl);}
   Aktion('Subtrahiert');
end;

end.