Random() function for n values but results must equal 100 Delphi 7

Pseudocode Example:

Random function: (1 to 5, results less than 100, results must equal 100 when all random numbers are 
added).

Showmessage:

Number 1 = 35
Number 2 = 15
Number 3 = 10
Number 4 = 20

Number 5 = 20