Unnamed

var
Times: array [1 .. 18] of string;
begin
Times [1] := Time1.text;
Times [2] := Time2.text;
Times [3] := Time3.text;
Times [4] := Time4.text;
Times [5] := Time5.text;
Times [6] := Time6.text;
Times [7] := Time7.text;
Times [8] := Time8.text;
Times [9] := Time9.text;
Times [10] := Time10.text;
Times [11] := Time11.text;
Times [12] := Time12.text;
Times [13] := Time13.text;
Times [14] := Time14.text;
Times [15] := Time15.text;
Times [16] := Time16.text;
Times [17] := Time17.text;
Times [18] := Time18.text;
randomize;
Jogo1.Text := Times[random(5)];
Jogo2.Text := Times[random(5)];

Jogo3.Text := Times[random(5)];
Jogo4.Text := Times[random(5)];

Jogo5.Text := Times[random(5)];
Jogo6.Text := Times[random(5)];

Jogo7.Text := Times[random(5)];
Jogo8.Text := Times[random(5)];

Jogo9.Text := Times[random(5)];
Jogo10.Text := Times[random(5)];

Jogo11.Text := Times[random(5)];
Jogo12.Text := Times[random(5)];

Jogo13.Text := Times[random(5)];
Jogo14.Text := Times[random(5)];

Jogo15.Text := Times[random(5)];
Jogo16.Text := Times[random(5)];

Jogo17.Text := Times[random(5)];
Jogo18.Text := Times[random(5)];

Jogo19.Text := Times[random(5)];
Jogo20.Text := Times[random(5)];

Jogo21.Text := Times[random(5)];
Jogo22.Text := Times[random(5)];

Jogo23.Text := Times[random(5)];
Jogo24.Text := Times[random(5)];

Jogo25.Text := Times[random(5)];
Jogo26.Text := Times[random(5)];

Jogo27.Text := Times[random(5)];
Jogo28.Text := Times[random(5)];

end;