object Form1: TForm1 Left = 159 Top = 141 Width = 696 Height = 480 Caption = 'Quadratzahlen' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False DesignSize = ( 688 447) PixelsPerInch = 120 TextHeight = 16 object Label1: TLabel Left = 56 Top = 56 Width = 160 Height = 29 Caption = 'Zahl eingeben:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -23 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label2: TLabel Left = 56 Top = 120 Width = 186 Height = 29 Caption = 'Quadrat der Zahl:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -23 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label3: TLabel Left = 395 Top = 112 Width = 6 Height = 29 Alignment = taRightJustify Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -23 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Shape1: TShape Left = 312 Top = 112 Width = 97 Height = 41 Brush.Style = bsClear end object Label4: TLabel Left = 56 Top = 184 Width = 237 Height = 29 Caption = 'Summe der Quadrate:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -23 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Shape2: TShape Left = 312 Top = 176 Width = 97 Height = 41 Brush.Style = bsClear end object Label5: TLabel Left = 395 Top = 184 Width = 6 Height = 29 Alignment = taRightJustify Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -23 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Edit1: TEdit Left = 296 Top = 64 Width = 113 Height = 24 Anchors = [akTop, akRight] TabOrder = 0 Text = '5' end object Button1: TButton Left = 432 Top = 88 Width = 121 Height = 41 Caption = 'quadrieren' TabOrder = 1 OnClick = Button1Click end object Button2: TButton Left = 432 Top = 176 Width = 137 Height = 41 Caption = 'Summe der Quadrate' TabOrder = 2 OnClick = Button2Click end end