dynamisch Anmen erzeugen und einem Image zuweisen

[punker-lili]

Hiho!

Also ich möchte in meinem Programm dynamisch Images erstellen. Leider weiß ich am anfang nicht, wie viele. Jedoch muss ich jedem erstellten Image einen neuen Namen zuweisen?! Wie mach ich das? Also ich bräuchte ne Idee, wie ich dynamisch Strings erstelle und den NAmen zuweise.
Das ist bis jetzt entstanden.. funktioniert aber nicht (warum?!)

Delphi-Quellcode:

begin
name_image(image0);
image1.name:=name;
ort:=form1.name.canvas;
...
neues_image(image1,name_image(name),Form1,Scrollbox1);
...

Die Procedure^^

Delphi-Quellcode:

procedure neues_image(image,image_org:Timage;name:string;form1:Tform;scrollbox1:tscrollbox);
const abstand_imag=50;
var wo:integer;
begin
  wo:=StrToInt(copy(name,length(name)-1,1));
    image:= TImage.Create( Form1);
    image.name:=name;
    name.Parent:=Scrollbox1;
    name.Left:=image_org.Left;
    name.Top:= image_org.Top+50+anzahl*image_org.Height;
    name.Height:=image_org.Height;
    name.Weidth:=image_org.Weidth;
end;

Danke für eure Hilfe!
MfG Anna