object Block: TBlock Left = 181 Top = 143 BorderIcons = [] BorderStyle = bsDialog Caption = 'Block direkt anw�hlen' ClientHeight = 139 ClientWidth = 228 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poDefaultSizeOnly OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 16 Top = 18 Width = 195 Height = 20 Caption = 'Sprung zu welchem Block ?' Font.Color = clBlack Font.Height = -16 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Edit1: TEdit Left = 67 Top = 54 Width = 91 Height = 21 MaxLength = 6 TabOrder = 0 OnExit = Edit1Exit OnKeyUp = Edit1KeyUp end object Button1: TButton Left = 33 Top = 94 Width = 75 Height = 25 Caption = 'OK' TabOrder = 1 OnClick = Button1Click end object Button2: TButton Left = 115 Top = 94 Width = 75 Height = 25 Caption = 'Abbruch' TabOrder = 2 OnClick = Button2Click end end