[lmikle]

А создавать не пытался?

Код:

var
  DataFails: Array[1..30] of TJpegImage;

// Пресоздание объектов
procedure TForm1.FormCreate(...);
var
  I : Integer;
begin
  For I := Low()DataFiles) to High(DataFiles) Do
    DataFiles[i] := TJPEFImage.Create;
end;

// Очистка
procedure TForm1.FormDestroy(...);
var
  I : Integer;
begin
  For I := Low()DataFiles) to High(DataFiles) Do
    DataFiles[i].Free;
end;

procedure TForm1.Button1Click();
var
  I : Integer;
begin
  I := Random(30)+1;
  DataFiles[i].LoadFromFile(...);
end;