object SwatForm: TSwatForm Left = 212 Top = 128 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = 'Swat!' ClientHeight = 413 ClientWidth = 282 Color = clSilver Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Default' Font.Style = [] Menu = MainMenu1 Position = poScreenCenter OnCreate = FormCreate OnMouseDown = FormMouseDown OnMouseUp = FormMouseUp PixelsPerInch = 96 object Image1: TImage Left = 11 Top = 256 Width = 260 Height = 156 AutoSize = True Picture.Data = {} end object GameOverImage: TImage Left = 10 Top = 72 Width = 262 Height = 145 AutoSize = True Picture.Data = {} end object TimeLabel: TLabel Left = 122 Top = 296 Width = 18 Height = 19 Caption = '00' Font.Color = clBlack Font.Height = -16 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = True end object MissLabel: TLabel Left = 78 Top = 351 Width = 9 Height = 19 Caption = '0' Font.Color = clBlack Font.Height = -16 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = True end object HitsLabel: TLabel Left = 41 Top = 351 Width = 9 Height = 19 Caption = '0' Font.Color = clBlack Font.Height = -16 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = True end object EscapedLabel: TLabel Left = 134 Top = 351 Width = 9 Height = 19 Caption = '0' Font.Color = clBlack Font.Height = -16 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = True end object ScoreLabel: TLabel Left = 205 Top = 351 Width = 9 Height = 19 Caption = '0' Font.Color = clBlack Font.Height = -16 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = True end object MainMenu1: TMainMenu object Gamr1: TMenuItem Caption = '&Game' ShortCut = 0 object New1: TMenuItem Caption = '&New' ShortCut = 0 OnClick = New1Click end object Options1: TMenuItem Caption = '&Options...' ShortCut = 0 OnClick = Options1Click end object Stop1: TMenuItem Caption = '&Stop' Enabled = False ShortCut = 0 OnClick = Stop1Click end end object Pause1: TMenuItem Caption = '&Pause' ShortCut = 0 OnClick = Pause1Click end object About1: TMenuItem Caption = '&About' ShortCut = 0 OnClick = DisplayAbout end end object Timer1: TTimer Enabled = False Interval = 100 OnTimer = TimerTick Left = 32 end end