случайные числа

[neprogrammer]

procedure TForm2.FormCreate(Sender: TObject);

begin
Randomize;
if (ball=14) or (ball=15)
then
 label1.caption:=''+''
else
  if (ball=11) or (ball=12) or (ball=13)
  then
  label1.caption:=''+''

else
  if (ball=7) or (ball=8) or (ball=9) or (ball=10)
  then
  label1.caption:=''+''
else
  if (ball=6) or (ball=5) or (ball=4)
  then
  label1.caption:='' +''
else
  if (ball=3) or (ball=2) or (ball=1) or (ball=0)
  then
  label1.caption:=''+''

end;


end.

-----------------
надо что бы: если баллы равны 14 или 15 в label выводилось:
'Ваш психологический возраст'+ случайное число от 50 до 60

[Serge_Bliznykov]

более, чем странный алгоритм..
Ну, Вам виднее...

var s : string;
begin
  s := 'Ваш психологический возраст ';
  Randomize;
  case ball of
     14,15 : s := s + IntToStr( Random(11)+50 );
  end;

  label1.Caption := s;
end;

[Stilet]

label1.caption:=format('Ваш психологический возраст + случайное число от %d',[50+random(10)]);

[neprogrammer]

Сообщение от Serge_Bliznykov

более, чем странный алгоритм..
Ну, Вам виднее...

var s : string;
begin
  s := 'Ваш психологический возраст ';
  Randomize;
  case ball of
     14,15 : s := s + IntToStr( Random(11)+50 );
  end;

  label1.Caption := s;
end;

спасибо!!!!

[neprogrammer]

Сообщение от Stilet

label1.caption:=format('Ваш психологический возраст + случайное число от %d',[50+random(10)]);

Большое спасибо, использовал ваш совет!

[neprogrammer]

как сделать что бы программа СЧИТАЛА мои баллы??