如何在Delphi中安全地创建和释放多个对象

var
  MyObject: TObject;
begin
  MyObject := TObject.Create;
end;

var
  MyObjects: TList;
  i: Integer;
begin
  MyObjects := TList.Create;
  for i := 1 to 10 do
  begin
    MyObjects.Add(TObject.Create);
  end;
end;

var
  MyObject: TObject;
begin
  MyObject.Free;
end;

var
  MyObjects: TList;
  i: Integer;
begin
  for i := 0 to MyObjects.Count - 1 do
  begin
    TObject(MyObjects[i]).Free;
  end;
  MyObjects.Free;
end;

var
  MyObject: TObject;
begin
  try
    MyObject := TObject.Create;
    // 使用MyObject对象的代码
  finally
    MyObject.Free;
  end;
end;

var
  MyObjects: TList;
  i: Integer;
begin
  MyObjects := TList.Create;
  try
    for i := 1 to 10 do
    begin
      MyObjects.Add(TObject.Create);
    end;
    // 使用MyObjects中的对象的代码
  finally
    for i := 0 to MyObjects.Count - 1 do
    begin
      TObject(MyObjects[i]).Free;
    end;
    MyObjects.Free;
  end;
end;