object Form2: TForm2
  Left = 183
  Top = 131
  Width = 329
  Height = 210
  Caption = 'Suchergebnis'
  Font.Color = clBlack
  Font.Height = -17
  Font.Name = 'System'
  Font.Style = [fsBold]
  KeyPreview = True
  Scaled = False
  OnCreate = FormCreate
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 120
  TextHeight = 20
  object ListBox1: TListBox
    Left = 0
    Top = 0
    Width = 321
    Height = 178
    Align = alClient
    Font.Color = clBlack
    Font.Height = -18
    Font.Name = 'Fixedsys'
    Font.Style = []
    ItemHeight = 15
    Items.Strings = (
      'Das ist ein Test f�r den Font')
    ParentFont = False
    Style = lbOwnerDrawFixed
    TabOrder = 0
    OnDblClick = ListBox1DblClick
    OnDrawItem = ListBox1DrawItem
  end
end