object Form1: TForm1
  Left = 282
  Top = 131
  Caption = 'Form1'
  ClientHeight = 328
  ClientWidth = 476
  Color = clBtnFace
  Font.Charset = SHIFTJIS_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #65325#65331' '#65328#12468#12471#12483#12463
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 24
    Top = 8
    Width = 46
    Height = 12
    Caption = #26360#12365#36796#12415
  end
  object Label2: TLabel
    Left = 232
    Top = 8
    Width = 48
    Height = 12
    Caption = #35501#12415#36796#12415
  end
  object Memo1: TMemo
    Left = 24
    Top = 60
    Width = 185
    Height = 153
    Lines.Strings = (
      '{ -------------------------'
      '----------'
      'Unicode File '#12398' '#35501#12415#26360#12365#12486#12473#12488
      #12503#12525#12464#12521#12512
      '//------------------------'
      '----------- }'
      'unit Unit1;'
      ''
      'interface'
      ''
      'uses'
      '  Windows, Messages, SysUtils, '
      'Variants, Classes, Graphics, '
      'Controls, Forms,'
      '  Dialogs, StdCtrls;'
      ''
      'type'
      '  TForm1 = class(TForm)'
      '    Memo1: TMemo;'
      '    Memo2: TMemo;'
      '    Button1: TButton;'
      '    Button2: TButton;'
      '    Button3: TButton;'
      '    Button4: TButton;'
      '    CheckBox1: TCheckBox;'
      '    CheckBox2: TCheckBox;'
      '    procedure '
      'Button1Click(Sender: TObject);'
      '    procedure '
      'Button2Click(Sender: TObject);'
      '    procedure '
      'Button3Click(Sender: TObject);'
      '    procedure '
      'Button4Click(Sender: TObject);'
      '  private'
      '    { Private '#23459#35328' }'
      '  public'
      '    { Public '#23459#35328' }'
      '  end;'
      ''
      'var'
      '  Form1: TForm1;'
      ''
      'implementation'
      ''
      '{$R *.dfm}'
      ''
      'uses'
      '  StringUnitHeavy;'
      ''
      'procedure '
      'TForm1.Button1Click(Sender: '
      'TObject);'
      'begin'
      '  '
      'SaveWideStringToFile(ExtractFi'
      'lePath(Application.ExeName)'
      '+'#39'Uni.txt'#39','
      '    Memo1.Text, ueLittle, '
      'CheckBox1.Checked);'
      'end;'
      ''
      'procedure '
      'TForm1.Button2Click(Sender: '
      'TObject);'
      'begin'
      '   Memo2.Text :='
      '     '
      'LoadWideStringFromFile(Extrac'
      'tFilePath(Application.ExeName)'
      '+'#39'Uni.txt'#39','
      '       ueLittle, '
      'CheckBox2.Checked);'
      'end;'
      ''
      'procedure '
      'TForm1.Button3Click(Sender: '
      'TObject);'
      'begin'
      '  '
      'SaveWideStringToFile(ExtractFi'
      'lePath(Application.ExeName)'
      '+'#39'Uni.txt'#39', Memo1.Text,'
      '    ueBig, CheckBox1.Checked);'
      'end;'
      ''
      'procedure '
      'TForm1.Button4Click(Sender: '
      'TObject);'
      'begin'
      '   Memo2.Text :='
      '     '
      'LoadWideStringFromFile(Extrac'
      'tFilePath(Application.ExeName)'
      '+'#39'Uni.txt'#39','
      '       ueBig, '
      'CheckBox2.Checked);'
      'end;'
      ''
      'end.')
    ScrollBars = ssVertical
    TabOrder = 0
  end
  object Memo2: TMemo
    Left = 232
    Top = 60
    Width = 201
    Height = 153
    Lines.Strings = (
      'Memo2')
    ScrollBars = ssVertical
    TabOrder = 1
  end
  object Button_LESave: TButton
    Left = 24
    Top = 28
    Width = 75
    Height = 25
    Caption = 'Little'
    TabOrder = 2
    OnClick = Button_LESaveClick
  end
  object Button_LELoad: TButton
    Left = 232
    Top = 28
    Width = 75
    Height = 25
    Caption = 'Little'
    TabOrder = 3
    OnClick = Button_LELoadClick
  end
  object Button_BESave: TButton
    Left = 105
    Top = 28
    Width = 75
    Height = 25
    Caption = 'Big'
    TabOrder = 4
    OnClick = Button_BESaveClick
  end
  object Button_BELoad: TButton
    Left = 313
    Top = 28
    Width = 75
    Height = 25
    Caption = 'Big'
    TabOrder = 5
    OnClick = Button_BELoadClick
  end
  object CheckBox1: TCheckBox
    Left = 24
    Top = 228
    Width = 177
    Height = 25
    Caption = 'BOMAdd'
    TabOrder = 6
  end
  object CheckBox2: TCheckBox
    Left = 256
    Top = 228
    Width = 97
    Height = 17
    Caption = 'UseBOM'
    TabOrder = 7
  end
  object Button_SJISSave: TButton
    Left = 24
    Top = 278
    Width = 75
    Height = 25
    Caption = 'SaveSJIS'
    TabOrder = 8
    OnClick = Button_SJISSaveClick
  end
  object Button_SJISLoad: TButton
    Left = 232
    Top = 278
    Width = 75
    Height = 25
    Caption = 'LoadSJIS'
    TabOrder = 9
    OnClick = Button_SJISLoadClick
  end
end