Speichere die Zahl in einer globalen Variable oder besser einer Membervariable und erhöhe diese.
Mache am Besten aus der procedure eine Methode
Zum Array:
Delphi-Quellcode:
var
Bilder: Array of TImage;
AnzBilder: Integer;
...
inc(AnzBilder);
setLength( Bilder, AnzBilder);
Bilder[ AnzBilder-1] := TImage.Create( Self);
...