tildel mange Timage jpg

Jeg har 21 Timage på min form og nu kunne jeg godt tænke mig en nem måde at tildele et JPG på:

Jeg har følgende kode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i, Tal: integer;
begin
  Randomize;
  Tal:= 0;
  i:= Random(6)+1;
  case i of
    1 : begin
          Image1.Picture:= Terning1;
        end;
    2 : begin
          Image1.Picture:= Terning2;
        end;
    3 : begin
          Image1.Picture:= Terning3;
        end;
    4 : begin
          Image1.Picture:= Terning4;
        end;
      5 : begin
            Image1.Picture:= Terning5;
          end;
      6 : begin
            Image1.Picture:= Terning6;
          end;
    end; {Case i of}
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Terning1 := TPicture.Create;
  Terning1.LoadFromFile('Dice1.jpg');
  Terning2 := TPicture.Create;
  Terning2.LoadFromFile('Dice2.jpg');
  Terning3 := TPicture.Create;
  Terning3.LoadFromFile('Dice3.jpg');
  Terning4 := TPicture.Create;
  Terning4.LoadFromFile('Dice4.jpg');
  Terning5 := TPicture.Create;
  Terning5.LoadFromFile('Dice5.jpg');
  Terning6 := TPicture.Create;
  Terning6.LoadFromFile('Dice6.jpg');
end;

Jeg skal tildel JPG til alle 21 Timage på samme måde

Jeg havde tænkt mig noget ala:

procedure TForm1.Button1Click(Sender: TObject);
var
  i, j, Tal: integer;
begin
  For j:= 1 to 21 do
  begin
    Randomize;
    i:= Random(6)+1;
    case i of
      1 : begin
            Image[j].Picture:= Terning1;
          end;
      2 : begin
            Image[j].Picture:= Terning2;
          end;
      3 : begin
            Image[j].Picture:= Terning3;
          end;
      4 : begin
            Image[j].Picture:= Terning4;
          end;
      5 : begin
            Image[j].Picture:= Terning5;
          end;
      6 : begin
            Image[j].Picture:= Terning6;
          end;
    end; {Case i of}
  end;
end;

Jeg ved godt at ovenstående ikke kan lade sig gøre, men det var for at give en ide.