Images zur Laufzeit erstellen - Delphi 8 Architect

[mjreaper]

Hallo,

ich möchte gerne einige images zur laufzeit erstellen, leider zeigt er mir die noch nicht an. Ich erhalte aber auch keine Fehlermeldung. Was könnte das Problem sein?

Delphi-Quellcode:

procedure Tmainform.FormCreate(Sender: TObject);
var i: integer;
begin

  // images erstellen

 for i:=1 to 25 do
 begin
  punkt[i]:=timage.Create(self);

  with punkt[i] do
  begin

   left   := 5+i*10;
   height := 5;
   width  := 5;
   top    := 25;

   parent:=mainform;
   visible:=true;
   picture:=image1.picture;

  end;
 end;

end;

image1 ist ein schon vorhandenes image, welches einfach nur die picture information enthält (vorerst).

die images wurde vorher als array deklariert:

punkt: array[1..25] of timage; hab schon überall nach einer lösung gesucht, nur leider finde ich keine...

wäre über jede konstruktive Hilfe erfreut

[edit=sakura] [code] -> [delphi]. Mfg, sakura[/edit]