создание объектов

type
    TForm1 = class (TForm)
    ...
        procedure FormCreate(Sender: TObject);
        procedure FormDestroy(Sender: TObject);
    private
        ImageList: TObjectList; // по совету mfender
        procedure CreateImages;
        // Это св-во для удобства доступа к TImage
        property Images[Index: Integer]: TImage read GetImage;
        function GetImage(Index: Integer): TImage; // inline; // Если работаешь в BDS 2006
    ...
    public
        // Пример, как работать...
        procedure ShowImage(Index: Integer; DoShow: boolean);
    end;

...
procedure TForm1.FormCreate(Sender: TObject);
begin
    // Создаем список
    ImageList:=TObjectList.Create(false);
    // OwnsObjects = false, т.к. память TImage корректно освободит сама форма
    CreateImages;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
    // Освобождаем память, занятую списком
    ImageList.Free;
end;

procedure TForm1.CreateImages;
var i: Integer;
     newImage: TImage;
begin
    // Создаем 10 TImage...
    for i:=0 to 9 do
    begin
        newImage:=TImage.Create(Self);
        with newImage do
        begin
            Parent:=Self;
            Visible:=false; // По умолчанию - невидимый
            // ... здесь можно настроить др. св-ва - позиция, размеры,
            // собственно загрузить сам рисунок в компонент
        end;
        ImageList.Add(newImage);
    end;
end;

function TForm1.GetImage(Index: Integer): TImage;
begin
    Result:=ImageList[Index] as TImage;
end;

procedure TForm1.ShowImage(Index: Integer; DoShow: boolean);
begin
    Images[Index].Visible:=DoShow;
end;

var
images: array[1..100] of TImage;
i : integer;
begin
  for i:= 1 to 100 do
    images := TImage.Create(); {не знаю какой там точно конструктор у TImage}
end

for i:=Low(imag) to High(image) do
  if Assigned(image) then images.free;

images[n].parent:=<эгземпляр объекта на котором размещаеш>;
  images[n].left:=...;
  images[n].top:=...;
  ........................