Pienso que la solución puede ser la siguiente.
begin
randomize;
x:= random(20)+ 1;
Label (1 to 20). caption:= x;
If Tlabel. any caption has repeated number do
begin
Replace that number for another;
end;
end;
No os enfadeis amigos, es una broma jajajaja