[Habetdin]

Devils0411,

Код:

[Ini]
filename: {app}\Data.ini; section: Settings; key: Chislo; string: {code:MyNumber};

[Code]
function MyNumber(Param: String): String;
begin
  randomize;
  if random(5)>2 then Result:='8'
    else Result:='5';
end;