Вот кстати одна из реализаций.

function S(Limit: Integer): Boolean;
begin
   Result := (Random(Limit) = 0);
end;

function RND: Integer;
var
   R : Integer;
begin
   Result:=0;
   if S(10) then Result := 1
      else if S(15) then Result := 2
         else if S(20) then Result := 3;
end;

Как вам?

Результаты работы:

----
0- 78,3%
1- 10,4%
2- 6,5%
3- 4,8%
----
0- 78,3%
1- 11,1%
2- 5,8%
3- 4,8%
----
0- 81,3%
1- 8,8%
2- 5,8%
3- 4,1%
----
0- 81,6%
1- 8,3%
2- 5,3%
3- 4,8%