object PaaLomake: TPaaLomake
  Left = 401
  Top = 258
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Dummy nimi'
  ClientHeight = 260
  ClientWidth = 510
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  Icon.Data = {<image000.ico>}
  Menu = MainMenu1
  Position = poScreenCenter
  Scaled = False
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 120
  TextHeight = 16
  object StatusBar1: TStatusBar
    Left = 0
    Top = 241
    Width = 510
    Height = 19
    Panels = <>
    SimplePanel = True
    SizeGrip = False
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 510
    Height = 241
    Align = alClient
    BorderStyle = bsSingle
    FullRepaint = False
    TabOrder = 4
    object Label1: TLabel
      Left = 157
      Top = 24
      Width = 192
      Height = 16
      Caption = 'Amount of RAM to allocate/free :'
    end
    object Label2: TLabel
      Left = 24
      Top = 136
      Width = 29
      Height = 16
      Caption = '0 Mb'
    end
    object Label3: TLabel
      Left = 456
      Top = 136
      Width = 36
      Height = 16
      Caption = '64 Mb'
    end
    object Label4: TLabel
      Left = 280
      Top = 48
      Width = 19
      Height = 16
      Caption = 'Mb'
    end
    object Label5: TLabel
      Left = 148
      Top = 128
      Width = 211
      Height = 16
      Caption = 'Free RAM at the moment:  xxxxxx Kb'
    end
    object ProgressBar2: TProgressBar
      Left = 57
      Top = 144
      Width = 393
      Height = 9
      Hint = 'Shows the amount of free RAM'
      Min = 0
      Max = 100
      ParentShowHint = False
      Step = 1
      ShowHint = True
      TabOrder = 1
    end
    object CloseButton: TButton
      Left = 408
      Top = 192
      Width = 75
      Height = 25
      Cursor = crHandPoint
      Hint = 'Click to close the program'
      Caption = '&Close'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnClick = CloseButtonClick
    end
    object TrackBar1: TTrackBar
      Left = 56
      Top = 72
      Width = 393
      Height = 41
      Hint = 
        'Use track bar to select amount of RAM (use arrows or mouse to mo' +
        've slider)'
      Max = 64
      Min = 1
      Orientation = trHorizontal
      ParentShowHint = False
      Frequency = 1
      Position = 2
      SelEnd = 0
      SelStart = 0
      ShowHint = True
      TabOrder = 0
      TickMarks = tmBoth
      TickStyle = tsAuto
      Visible = False
      OnChange = TrackBar1Change
    end
    object MinimizeButton: TButton
      Left = 216
      Top = 192
      Width = 75
      Height = 25
      Cursor = crHandPoint
      Hint = 'Minimizes program to system tray'
      Caption = 'Minimize'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      OnClick = MinimizeButtonClick
    end
  end
  object GoButton: TButton
    Left = 32
    Top = 192
    Width = 75
    Height = 25
    Cursor = crHandPoint
    Hint = 'Click to start the memory optimization'
    Caption = '&Go!!'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindow
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    OnClick = GoButtonClick
  end
  object ProgressBar1: TProgressBar
    Left = 59
    Top = 224
    Width = 393
    Height = 9
    Min = 0
    Max = 100
    Step = 1
    TabOrder = 3
    Visible = False
  end
  object MaskedSyoteKentta: TMaskEdit
    Left = 242
    Top = 48
    Width = 39
    Height = 24
    Hint = 'Amount of megabytes RAM to allocate and free'
    EditMask = '999;0;_'
    MaxLength = 3
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    OnKeyPress = MaskedSyoteKenttaKeyPress
  end
  object MainMenu1: TMainMenu
    Left = 10
    Top = 80
    object File1: TMenuItem
      Caption = 'File'
      object Exit1: TMenuItem
        Caption = 'Exit'
        OnClick = Exit1Click
      end
    end
    object Edit1: TMenuItem
      Caption = 'Edit'
      object Preferences1: TMenuItem
        Caption = 'Preferences'
        OnClick = Preferences1Click
      end
    end
    object Info1: TMenuItem
      Caption = 'Info'
      Hint = 'Info about the program'
      OnClick = Info1Click
    end
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 10
    Top = 106
  end
end