object Zeile: TZeile Left = 210 Top = 129 ActiveControl = OKBtn BorderStyle = bsDialog Caption = 'Mehrzeilige Texte' ClientHeight = 157 ClientWidth = 360 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Bevel1: TBevel Left = 8 Top = 8 Width = 265 Height = 145 Shape = bsFrame IsControl = True end object Label1: TLabel Left = 16 Top = 13 Width = 73 Height = 13 Caption = 'Eintragungstext' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object einjahr: TLabel Left = 294 Top = 132 Width = 44 Height = 23 Caption = '1996' Font.Color = clBlack Font.Height = -21 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False end object OKBtn: TBitBtn Left = 276 Top = 8 Width = 77 Height = 27 Hint = 'Eingabe'#13'sichern ...|Eingabe sichern' ParentShowHint = False ShowHint = True TabOrder = 0 OnClick = OKBtnClick Kind = bkOK Margin = 2 Spacing = -1 IsControl = True end object CancelBtn: TBitBtn Left = 276 Top = 40 Width = 77 Height = 27 Hint = 'zur�ck in die'#13'�bersicht|' ParentShowHint = False ShowHint = True TabOrder = 2 OnClick = CancelBtnClick Kind = bkCancel Margin = 2 Spacing = -1 IsControl = True end object HelpBtn: TBitBtn Left = 276 Top = 72 Width = 77 Height = 27 TabOrder = 3 OnClick = HelpBtnClick Kind = bkHelp Margin = 2 Spacing = -1 IsControl = True end object Memo1: TMemo Left = 16 Top = 32 Width = 249 Height = 113 Hint = 'Texteingabe f�r '#13'den Tag. |Texteingabe/�nderung' Lines.Strings = ( '') ParentShowHint = False ShowHint = True TabOrder = 1 end object cb: TCheckBox Left = 278 Top = 112 Width = 97 Height = 17 Caption = 'Einmalig' Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 4 OnClick = cbClick end end