Help escolher cor (random)

[ManelJaquim]

Boas,

queria mudar as cores da letra de modo aleatório mas excluindo algumas cores,

usei o seguinte codigo

Procedure escrever (c :integer);
  //sub sub programa
  procedure rodarcor;
  var cor : integer;
  Begin
   randomize;
  (*
   1 - azul escuro
   2 - verde
   3 - azul marinho escuro
   4 - vermelho escuro
   5 - roxo
   6 - amarelo torrado
   7 - cinza claro
   8 - cinza escuro
   9 - azul
   10- verde claro
   11- azul marinho claro
   12- vermelho
   13- cor de rozinha
   14- amarelo
   15- branco
   16- preto 
   *)
   //escolher cor
   cor := random(16);
   while (cor=16) or (cor=8) or (cor=5) or (cor=3) or (cor=2) do cor := random (16);   
   textcolor(cor);
  end; 

mas continuam a aparecer , pelo menos, a cor preta escrita...

alguém sabe uma maneira de fazer isso, ou corrigir a minha sff

[move]Obrigado malta =D[/move]

[NCS_One]

Boas.

Já não me lembro muito bem disso, mas não era do 0 (zero) a 15 ?

E quando fazes :

cor := random(16);

O 0 (zero) também pode ser escolhido.

[ManelJaquim]

okok entao tenho so que adicionar mais uma condição no ciclo pro 0 para dar certo??

edit:

ja corrigi adicionando mais "(cor=0) or " ao while bgd =D