TImages, deren Pointer in einer TList stehen, frei geben

[idontwantaname]

Hallo

Ich habe ein Problem, und zwar folgendes: Ich erstelle dynamisch mehrere TImage-Objekte und speichere diese mit folgendem Code in eine TList:

Delphi-Quellcode:

MyImage: TImage;
Images: TList;
{...}
MyImage := TImage.Create( Form1 );
MyImage.Parent := Form1;
{...}
Images.Add( @MyImage );

Nun möchte ich diese Images wieder freigeben und so hab ich versucht, dies so zu lösen:

Delphi-Quellcode:

procedure TForm1.FormDestroy(Sender: TObject);
var
  i: Integer;
  MyImage: ^TImage;
begin
  for i := 0 to Images.Count - 1 do
  begin
    MyImage := Images.Items[i];
    MyImage^.Free;
  end;

  Images.Free;
end;

Leider gibt es beim schließen des Programms eine AV
Kann mir jemand helfen und erklären, wo der Fehler in diesem Code ist ??