object genauform: Tgenauform Left = 201 Top = 100 BorderStyle = bsDialog Caption = 'Genaue Abrechnung' ClientHeight = 391 ClientWidth = 424 Font.Color = clWindowText Font.Height = -16 Font.Name = 'System' Font.Style = [] PixelsPerInch = 120 TextHeight = 20 object Label1: TLabel Left = 10 Top = 334 Width = 66 Height = 25 Caption = 'Label1' Visible = False end object Panel1: TPanel Left = 7 Top = 11 Width = 409 Height = 373 BevelOuter = bvLowered TabOrder = 6 end object GroupBox1: TGroupBox Left = 13 Top = 20 Width = 397 Height = 67 Caption = ' Geben Sie den Abrechnungsstart ein ' Font.Color = clBlack Font.Height = -17 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 0 object MaskEdit1: TMaskEdit Left = 20 Top = 30 Width = 51 Height = 30 EditMask = '!90/90;0;_' Font.Color = clBlack Font.Height = -17 Font.Name = 'Arial' Font.Style = [] MaxLength = 5 ParentFont = False TabOrder = 0 Text = '0101' end end object GroupBox2: TGroupBox Left = 13 Top = 96 Width = 397 Height = 69 Caption = ' Geben Sie den Abrechnungsschlu� ein ' Font.Color = clBlack Font.Height = -17 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 1 object MaskEdit2: TMaskEdit Tag = 1 Left = 20 Top = 30 Width = 51 Height = 30 EditMask = '!90/90;0;_' Font.Color = clBlack Font.Height = -17 Font.Name = 'Arial' Font.Style = [] MaxLength = 5 ParentFont = False TabOrder = 0 Text = '3112' end end object GroupBox3: TGroupBox Left = 13 Top = 172 Width = 397 Height = 69 Caption = ' Geben Sie hier eine Grundgeb�hr ein ' Font.Color = clBlack Font.Height = -17 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 2 object MaskEdit3: TMaskEdit Left = 20 Top = 30 Width = 51 Height = 30 EditMask = '!90:00;0;_' Font.Color = clBlack Font.Height = -17 Font.Name = 'Arial' Font.Style = [] MaxLength = 5 ParentFont = False TabOrder = 0 Text = '0000' end end object GroupBox4: TGroupBox Left = 13 Top = 248 Width = 397 Height = 69 Caption = ' Geben Sie hier einen eventuellen Freibetrag ein ' Font.Color = clBlack Font.Height = -17 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 3 object MaskEdit4: TMaskEdit Left = 20 Top = 30 Width = 51 Height = 30 EditMask = '!90:00;0;_' MaxLength = 5 TabOrder = 0 Text = '0000' end end object KostenTabelle: TStringGrid Left = 290 Top = 328 Width = 400 Height = 150 TabOrder = 4 Visible = False end object BitBtn1: TBitBtn Left = 157 Top = 334 Width = 111 Height = 41 TabOrder = 5 OnClick = BitBtn1Click Kind = bkOK end end