[求助]把1-50随机分成五组,

是每组10个数吗？

random是一个求随机函数，必需用到它。delphi帮助中这么说的。
n Delphi code, Random returns a random number within the range 0 <= X < Range. If Range is not specified, the result is a real-type random number within the range

0 <= X < 1.
用TList类用来记录1-50的值。
设定两个变量i,j,i初值为50
j:=random(i);
j的值为list中的序号，取出后移出。同时i:=i-1;再做上一步。

这只是个思路，没做测试，你试一下。做完把代码发上来。