动态生成SpeedButton释放时报错

Question

大家帮忙看看，我有两个按钮，每个按钮功能是动态生成了100个SpeedButton，但是在点每个按钮先进行释放，但是不知道为什么总是报内存错误切换两次就自动关闭了，释放的代码如下，请大家指教。//调用
    FreeSpeedButton(DDButton,backImg);
    DDButton[I]:=TSpeedButton.Create(self);
    backImg[I] :=TImage.Create(self);
    backImg[I].Parent:=Form1.ScrollBox3;
    backImg[I].Picture.LoadFromFile('.\img\new2.JPG');
    DDButton[I].Parent:=Form1.ScrollBox3;
    DDButton[I].Caption:=StrTmp;
    DDButton[I].Width:=iwidth;
    backImg[I].Width:=iwidth;
    DDButton[I].Height:=iHeight;
    backImg[I].Height:=iHeight;
    backImg[I].Top := iHtoH + 50 * (I div iPerLine - integer((I mod iPerLine)=0));
    backImg[I].Left := iWtoW + (iWidth+iWtoW) * ((I-1) mod iPerLine);
    DDButton[I].Top := iHtoH + 50 * (I div iPerLine - integer((I mod iPerLine)=0));
    DDButton[I].Left := iWtoW + (iWidth+iWtoW) * ((I-1) mod iPerLine);
    DDButton[I].Font.Color:=clYellow;
    DDButton[I].Flat:=true;
    backImg[I].Show;
    DDButton[I].Show;
//释放
procedure FreeSpeedButton(TmpBtn : array of TSpeedButton;TmpImg : array of TImage);
var
  i : integer;
begin
  for i:=1 to 100 do
  begin
    if TmpBtn[i]<>nil then
    begin
      try
        TmpBtn[i].Destroy;
        TmpImg[I].Destroy;
      except
        break;
      end;
    end
    else
    begin
      break;
    end;
  end;
end;

Answer 1

你一开始调用的时候 FreeSpeedButton 里的参数数组里没有对象。你虽然用 TmpBtn[i]<>nil来判断，但如果是数组你没有初始化的话里面可能是无效的指针。你最好不要用数组。
用 TObjectList

Answer 2

var
  AList:TList;AList:=TObjectList.Create;procedure 创建方法
var
  i:Integer;
begin
  for i:=0 to 99 do 
  begin
    创建按钮
    AList.Add(按钮);
  end;
end;AList.Clear;来释放所有的按钮