обработчик событий динамических объектов

[Vervolf]

в программе создаются динамически картинки, раскиданные по форме.
Цель: При клике на картинку, объект уничтожается.
вот код:

type
TForm1 = class(TForm)
Image1: TImage;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
Procedure Sn(Sender: TObject);
{ Public declarations }
end;

var
Form1: TForm1;
Img: array[1..100]of Timage;
i: integer;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin //
For i:=1 to 10 do
begin
Randomize;
img[i]:=Timage.Create(Form1);
img[i].Picture.LoadFromFile('1.bmp');
img[i].AutoSize:=true;
img[i].Transparent:=True;
img[i].Left:=Random(ClientWidth-img[i].Width);
img[i].Top:=Random(ClientHeight-img[i].Height);
img[i].OnClick:=sn;
img[i].Parent:=Form1;
end;
end;

procedure TForm1.Sn(Sender: TObject);
begin //
for i:=1 to 10 do
begin
if sender = img[i] then
begin
img[i].Destroy;
end;
end;

end;

end.

проблема в том, что иногда(в большинстве случаев)появляется ошибка.. "access violation at adress 00403329 in module project1.exe. read of address 000020A8". что я тут не так сделал?помогите пожалуйста.

[WhiteSpirit]

Конечно, будет ошибка - нельзя уничтожать объекты в обработчиках их событий. Можно сделать так: по клику прятать изображения и включать таймер, а уже в обработчике таймера их уничтожать

[Vervolf]

Спасибо большое, попробую!