Динамически не через массив

[Alex Cones]

Мне нужно динамически создать много объектов Image, но не хотелось бы использовать массив, так как вся программа "заточена" под использование изображений с именем TexImg12043 и ObjImg12032, где первые две цифры от 01 до 16, вторые от 01 до 16, третья от 1 до 4.
можно конечно их создать "вручную":

unit ImageCreatorUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  SX,SY,Typer,FullTyper:String;
  I,X,Y,Z:Byte;
  N:Integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 For I:=1 to 2 do
  Begin
   If I = 1 Then Typer:='Tex' Else Typer:='Obj';
   For Z:=1 to 4 do
    For X:=1 to 16 do
     For Y:=1 to 16 do
      Begin
       If X<10 Then SX:='0'+IntToStr(X) Else SX:=IntToStr(X);
       If Y<10 Then SY:='0'+IntToStr(Y) Else SY:=IntToStr(Y);
       N:=(Y-1)*16+X;
       Memo1.Lines.Add('    Object '+Typer+'Img'+SX+SY+IntToStr(Z)+':TImage');
       Memo1.Lines.Add('      Left = '+IntToStr(((N-1) Div 16)*32 +((N-1) Mod 16)*32));
       Memo1.Lines.Add('      Top = '+IntToStr(368+(((N-1) Div 16)*16-((N-1) Mod 16)*16)));
       Memo1.Lines.Add('      Width = 64');
       Memo1.Lines.Add('      Height = 32');
       Memo1.Lines.Add('      ParentShowHint = False');
       Memo1.Lines.Add('      ShowHint = True');
       Memo1.Lines.Add('    End');
      End;
  End;
end;

end.

А потом этот текст скидывать в код (dfm) другой программы.

Правда при таким подходе после запуска программа выжидает около 30 сек и только после этого запускается.

P.S. Все изображения должны создаваться на панели Panel1.

[Ntlegend]

я чот не пойму.. тебе нада их создавать динамически.. или сттически?? если

...этот текст скидывать в код (dfm) другой программы...

то это никакое не динамическое создание..

динамически создавать попробуй так:

var SX,SY,Typer,FullTyper:String;
     I,X,Y,Z:Byte;
     N:Integer;
     Img:TImage;
begin
 For I:=1 to 2 do
   For Z:=1 to 4 do
    For X:=1 to 16 do
     For Y:=1 to 16 do
      Begin
         Img := TImage.Create(Self);
         Img.Parent := Panel1;
         If I = 1 Then Typer:='Tex' Else Typer:='Obj';
         Img.Name := Typer+'Img'+IntToStr(X)+IntToStr(Y)+IntToStr(Z);
         N:=(Y-1)*16+X;
         Img.Left := (((N-1) Div 16)*32 +((N-1) Mod 16)*32));
         Img.Top := (368+(((N-1) Div 16)*16-((N-1) Mod 16)*16)));
         Img.Width := 64;
         Img.Height := 32;
      End;

[Alex Cones]

Я и описывал статический метод:

можно конечно их создать "вручную":

А этот код сейчас попробую.