unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    StatusBar1: TStatusBar;
    UpDown1: TUpDown;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Edit1: TEdit;
    StaticText1: TStaticText;
    Label1: TLabel;
    StaticText2: TStaticText;
    StaticText3: TStaticText;
    Edit2: TEdit;
    StaticText4: TStaticText;
    Edit3: TEdit;
    StaticText5: TStaticText;
    StaticText6: TStaticText;
    StaticText7: TStaticText;
    StaticText8: TStaticText;
    StaticText9: TStaticText;
    StaticText10: TStaticText;
    procedure UpDown1Click(Sender: TObject; Button: TUDBtnType);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType);
begin
  Edit1.Text:=IntToStr(UpDown1.Position);
  StatusBar1.Panels[1].Text:=Edit1.Text;
  Label1.Caption:=Edit1.Text;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);

var
  i:Byte;
  koerner_feld:Int64;
  koerner_brett:Int64;

begin
  koerner_feld:=1;
  koerner_brett:=1;
  for i:=2 to UpDown1.Position do
  begin
    koerner_feld:=koerner_feld*2;
    koerner_brett:=koerner_brett+koerner_feld;
  end;
  Edit2.Text:=IntToStr(koerner_feld);
  Edit3.Text:=IntToStr(koerner_brett);
  StatusBar1.Panels[3].Text:=Edit2.Text;
  StatusBar1.Panels[5].Text:=Edit3.Text;
end;

end.