Delphi StringList

var
  SL1 : TStringList;
begin
  SL1 := nil;
  try
   SL1 : TStringList.Create;
    //コード
  finally
    FreeAndNil(SL1); //nilにして解放
  end;
end;

---

2021.03.06 tryの中でCreateするように変更。StringListが複数になっても1つのtryで済むため。