Also das wirklich schwere daran ist, es mir zu erklären
Du mußt Dir nur eine Variable dazu setzen, die runter zählt...
zB:
Delphi-Quellcode:
var i, t: integer;
begin
i:= strtoint(Edit1.Text);
t:=Panel.Height;
for i:=100
downto 0
do
begin
bmp1[i]:=TImage.Create(Panel1);
// Bild erstellen.
bmp1[i].Picture.Bitmap.LoadFromResourceName(HInstance, '
LedRotOff');
bmp1[i].Parent:=Panel1;
// Bild ins Panel setzen
Dec(t, bmp1[i].Height);
bmp1[i].Top:=t;
end;
panel1.Repaint;
Sinngemäß so, nicht getestet.