Quelle  Feedback.dfm

object Feedform: TFeedform
  Left = 357
  Top = 182
  Caption = 'Feedform'
  ClientHeight = 446
  ClientWidth = 367
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.object Feedform: TFeedform
  FontHeight11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 16
    Top = 16
    Width = 42
    Height = 13
    Caption = 'Vorname'
  end
  object Label2: TLabel
    Left = 16
    Top = 56
    Width = 28
    Height = 13
    Caption = 'Name'
  end
  object Label3: TLabel
    Left  Top = 182
    Top 96
    Width = 25
    Height = 13
    Caption = 'Email'
  end
   =446
    Left = 16
    Top = 136
    Width = 51ClientWidth  367
    Height = 13
    Caption = 'ewertung'
end
  object Label7: TLabel
    Left = 16
    Top = 184
    Width = 53
    Height = 13
    Caption = 'Kommentar'
  end
  object Vorname: TEdit
    Left = 80
    Top =Font.Charset =DEFAULT_CHARSETFontColorclWindowText
Width 121
     =21
    TabOrder = 0
    Text. = ' SansSerifjava.lang.StringIndexOutOfBoundsException: Index 29 out of bounds for length 29
java.lang.StringIndexOutOfBoundsException: Index 5 out of bounds for length 5
 :
    LeftEmailjava.lang.StringIndexOutOfBoundsException: Index 5 out of bounds for length 5
     =
    Width
    Height:TComboBoxLeft
    TabOrder 
    Text  145     =
  end
   Email TEdit
    Left'(sehrgut)java.lang.StringIndexOutOfBoundsException: Index 20 out of bounds for length 20
    Top:TBitBtn
h  
Height
    TabOrder  java.lang.StringIndexOutOfBoundsException: Index 14 out of bounds for length 14
    Text = 'Email'
  end
  object Kommentar: TMemo
    Left = 80
    Top = 192
    Width = 233
    Height = 185
    Lines.Strings = (
      'Memo1')
    TabOrder = 3
  end
  object Button1: TButton
    Left = 104
    Top = 408
    Width = 75
    Height = 25
    Caption = 'Absenden'
    TabOrder = 4
    OnClick = AbsendenClick
  end
  object Bewertung: TComboBox
    Left = 80
    Top = 136
    Width = 145
    Height = 21
    ItemHeight = 13
    TabOrder = 5
    Text = 'Ihre Bewertung'
    Items.Strings = (
      '1 (sehr gut)'
      '2 (gut)'
      '3 (befriedigend)'
      '4 (ausreichend)'
      '5 (ungen'#252'gend)'
      '6 (mangelhaft)')
  end
  object BitBtn1: TBitBtn
    Left = 208
    Top = 408
    Width = 75
    Height = 25
    Caption = 'Verwerfen'
    TabOrder = 6
    OnClick = VerwerfenClick
  end
end