Komponenten über Befehl erstellen

[inherited]

Ja, am Besten mit einem Dynamischen Array

Delphi-Quellcode:

var
  Bilderchen: Array of TImage;

...

if getasynckeystate(vk_up) < 0 then
begin
  SetLength(Bilderchen, High(Bilderchen)+2);
  bilderchen[high(Bilderchen)]:=timage.create(self);
  with bilderchen[high(bilderchen)] do
  begin
    parent:=self;
    top:=markerimage.top;
    left:=markerimage.left;
    picture.loadfromfile('gfx\decal3.bmp');
  end;
end;