object Aufschrift: TAufschrift Left = 254 Top = 217 Width = 724 Height = 140 Caption = 'Aufschrift' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False PixelsPerInch = 120 TextHeight = 16 object Label1: TLabel Left = 16 Top = 24 Width = 398 Height = 25 Caption = 'Aufschrift des neuen Button (max 12 Buchst.):' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -20 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object EdAufschrift: TEdit Left = 424 Top = 24 Width = 129 Height = 25 MaxLength = 12 TabOrder = 0 end object Btok: TButton Left = 152 Top = 56 Width = 75 Height = 25 Caption = 'ok' TabOrder = 1 OnClick = BtokClick end object BtCancel: TButton Left = 264 Top = 56 Width = 75 Height = 25 Caption = 'Abbrechen' TabOrder = 2 OnClick = BtCancelClick end end