生成・解放のtry…finallyが多階層すぎてやぁ～ん→1階層で済んですっきり

生成・解放のtry…finallyが多階層すぎてやぁ～ん！

  wStringList1 := TStringList.Create;
  try
    wStringList2 := TStringList.Create;
    try
      wStringList3 := TStringList.Create;
      try
        //----------------
        //処理ごにょごにょ
        //----------------
      finally
        wStringList3.Free;
      end;
    finally
      wStringList2.Free;
    end;
  finally
    wStringList1.Free;
  end;

1階層で済んですっきり

  wStringList1 := nil;
  wStringList2 := nil;
  wStringList3 := nil;
  try
    wStringList1 := TStringList.Create;
    wStringList2 := TStringList.Create;
    wStringList3 := TStringList.Create;
    //----------------
    //処理ごにょごにょ
    //----------------
  finally
    //Freeメソッドは、nil入ってる場合は無視してくれる
    wStringList3.Free;
    wStringList2.Free;
    wStringList1.Free;
  end;

めでたしめでたし…おしまいっ☆彡