procedure TForm1.Button1Click(Sender: TObject);
var
  SL: TStringList;
begin
  SL := TStringList.Create;
  try
    SL.Add('あいうえお');
    // ファイル保存
    SL.SaveToFile('C:\Default.txt');
  finally
    SL.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  SL: TStringList;
begin
  SL := TStringList.Create;
  try
    SL.Add('あいうえお');
    // ファイル保存
    SL.SaveToFile('C:\Unicode.txt', TEncoding.Unicode);
  finally
    SL.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  SL: TStringList;
begin
  SL := TStringList.Create;
  try
    SL.Add('あいうえお');
    // ファイル保存
    SL.SaveToFile('C:\UTF-16BE.txt', TEncoding.BigEndianUnicode); // UTF-16BE
    SL.SaveToFile('C:\UTF-8.txt'   , TEncoding.UTF8);               // UTF-8
    SL.SaveToFile('C:\UTF-7.txt'   , TEncoding.UTF7);               // UTF-7
  finally
    SL.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  SL: TStringList;
  Enc: TEncoding;
begin
  SL := TStringList.Create;
  Enc := TEncoding.GetEncoding(20932); // EUC-JP(CP20932)
  try
    SL.Add('あいうえお');
    // ファイル保存
    SL.SaveToFile('C:\Ansi.txt', Enc);
  finally
    Enc.Free;
    SL.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  SL: TStringList;
  Enc: TEncoding;
begin
  SL := TStringList.Create;
  Enc := TEncoding.GetEncoding('euc-jp'); // EUC-JP(CP20932)
  try
    SL.Add('あいうえお');
    // ファイル保存
    SL.SaveToFile('C:\Ansi.txt', Enc);
  finally
    Enc.Free;
    SL.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Ini: TIniFile;
begin
  Ini := TIniFile.Create('C:\Test.ini');
  try
    Ini.WriteString('TEST', 'Item01', 'あいうえお');
  finally
    Ini.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Ini: TIniFile;
  SL: TStringList;
  FileName: String;
begin
  FileName := 'C:\Test.ini';
  // 空のUnicode(UTF-16)ファイルを作成してから
  if not FileExists(FileName) then
    begin
      SL := TStringList.Create;
      try
        SL.SaveToFile(FileName, TEncoding.Unicode);
      finally
        SL.Free;
      end;
    end;
  // Iniファイルを操作する
  Ini := TIniFile.Create(FileName);
  try
    Ini.WriteString('TEST', 'Item01', 'あいうえお');
  finally
    Ini.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Ini: TMemIniFile;
begin
  Ini := TMemIniFile.Create('C:\Test.ini', TEncoding.Unicode);
  try
    Ini.WriteString('TEST', 'Item01', 'あいうえお');
    Ini.UpdateFile;
  finally
    Ini.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  SB: TStringBuilder;
begin
  SB := TStringBuilder.Create;
  try
    SB.Append('あいう');
    SB.Append(1000);
    SB.Append(True);
    SB.AppendFormat('%s %.4d',['TEST', 1]);
    ShowMessage(SB.ToString);
  finally
    SB.Free;
  end;
end;

uses
  ...;

// "暗黙的文字列キャスト(W1057)"をエラーに昇格
{$WARN IMPLICIT_STRING_CAST ERROR}

// "暗黙的文字列キャストによるデータ喪失の可能性(W1058)"をエラーに昇格
{$WARN IMPLICIT_STRING_CAST_LOSS ERROR}

function Test(aPath: AnsiString): AnsiString;
begin
  result := ExcludeTrailingPathDelimiter(aPath);
end;

// "set 式で WideChar がバイト文字に変換されました(W1050)"をエラーに昇格
{$WARN WIDECHAR_REDUCED ERROR}

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  S: String;
begin
  S := '12A';
  for i:=1 to Length(S) do
    if (S[1] in ['A'..'Z']) then
      ShowMessage('Hit!');
end;

{$WARN identifer ON | OFF | ERROR | DEFAULT}