Mehrere TImages mit einer Procedure erstellen

[Blup]

Konstruktoren und Destruktoren sollte man in der Regel überschreiben, nicht neu definieren.
Sonst werden diese nicht aufgerufen.
Dabei auch den richtigen Konstruktor überschreiben und das inherited nicht vergessen.

Delphi-Quellcode:

TForm1 = class(TForm) // bestehend
.
.
private
  MeineObjectList := TObjectList<TBild>; // die Instanz der Liste
public
  constructor Create(AOwner: TComponent); override;
  destructor Destroy; override;
end;

constructor Create(AOwner: TComponent); 
begin
  inherited;
  MeineObjectList := TObjectList<TBild>.Create(True); 
end;

destructor Destroy;
begin
  MeineObjectList.Free;
  inherited;
end;