object video: Tvideo Left = 0 Top = 0 BorderStyle = bsNone Caption = 'video' ClientHeight = 320 ClientWidth = 434 Color = clBlack Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False OnClick = FormClick PixelsPerInch = 96 TextHeight = 13 end