Wenn ich gerade Online bin, kann ich schnelle Antworten geben
Ich meine das zB so:
Delphi-Quellcode:
var i: integer;
begin
//i:= strtoint(Edit1.Text);
i:= strtointdef(Edit1.Text, 0); // <- Sicherer
If i>0 then try
for i := 0 to 100 do
begin
bmp1[i]:=TImage.Create(Panel1); // Bild erstellen.
bmp1[i].Picture.Bitmap.LoadFromResourceName(HInstance, 'LedRotOff');
bmp1[i].Parent:=Panel1; // Bild ins Panel setzen
// if i > 0 then // Macht keinen Unterschied, ob mit oder ohne
bmp1[i].Top:=bmp1[i].HEIGHT * i;
panel1.Repaint;
except
// Wenn Fehler, Abbrechen und bereits erstelltes frei geben, oder sonst entsprechend vorgehen
end;