(Resolvido) sorteio de palavras aletórias

[Visitante]

Boa noite

preciso usar este programa no sorteio aleatório usando três palavras só que o problema é que palavra "amarelo" é exibida no Label1 em primeiro lugar toda vez inicia o programa pela primeira vez e preciso que seja aleatório também.

Não sei este código é mais indicado para este caso sou iniciante, e conto com ajuda de vocês.

Agradeçido

 

 

procedure TForm1.Button1Click(Sender: TObject);

   var
       i : Integer;

     begin
       i := RandomRange(1,5);

       Case i of

         2: Label1.caption := ('verde');
         3: Label1.caption := ('amarelo');
         4: Label1.caption := ('vermelho');

end; 

[Jhonas]

faça isso:

procedure TForm1.Button1Click(Sender: TObject);
Var i : Integer;
begin
   Randomize;
   i := RandomRange(2,5);

   Case i of
   2: Label1.caption := ('verde');
   3: Label1.caption := ('amarelo');
   4: Label1.caption := ('vermelho');

   end;
end;

abraço

[Visitante]

Jhonas

Bom dia  valeu mesmo ficou muito bom, obrigado