Random

[Febreze]

Испытываю сложность с использоваем Random.
Задача: имеем splash screen, при запуске которого из массива нужно брать случайные записи, но берет исключительно первую.

procedure TSplashForm.FormPaint(Sender: TObject);
 var
  af:array[0..10] of String;
begin
      af[0]:='не работает';
      af[1]:='Это первый текст';
      af[2]:='2';
      af[3]:='3';
      af[4]:='4';
      af[5]:='5';
      af[6]:='6';
      af[7]:='7';
      af[8]:='8';
      af[9]:='9';
      af[10]:='10';
     afLabel.Caption:=af[random(10)];

[Карась]

Нужно вызвать Randomize.

begin 
      Randomize; 
      af[0]:='не работает';   
      af[1]:='Это первый текст';   
      af[2]:='2';   
      af[3]:='3';   
      af[4]:='4';   .......

И надо помнить что нужно указывать на 1 больше.
Random(11);

[Febreze]

Заработало!!!
Спасибо