如何使用 function 创建 object 并在 delphi 7 [暂停]

Question

我想用第一个 function 创建一个多 object 图像，并用另一个 function 破坏该图像。

procedure TForm1.creatmulti(Sender: TObject);
begin
  //here create multi timage 
end;

procedure TForm1.destroy(Sender: TObject);
begin
  //here destroy the timage i want 
end;

我正在使用的部分代码：

if pcname =(imaarray[b].Name) then
begin
  FreeAndNil(imaarray[b]);
  j:=j-120;
  Break ;
end;

当我试图破坏最后一个而不是其他的时，我遇到了访问冲突。