Sortear Nomes Aleatorios

[Scorpion~ 0]

Gente eu queria assim que quando eu clicasse no botao, sortiasse uns nomes aleatorios e mostrar no Label1

 

Irei dar os nomes ki eu preciso ki sejam sorteados

 

Cleber

(esse eh em branco mesmo)

Rogerio

Vinicius

Rodolfo

Jean

 

Quem puder me falar oq tem ki fazer eu agradeço

 

to precisando urgente disso...

[marcio.theis 3]

Estes nomes serão imputados dentro de um Memo? Qual a estrutura que têm, ou pode-se fazer de qualquer forma?

[Raficcha 1]

Crie um array com os nomes possiveis e sorteie uma posição do vetor

 

function sorteianome:string;
var
  nomes : array[1 .. 10] of string[10];
begin
  nome[1] := 'lol';
  nome[2] := 'joão o pedro';
  nome[3] := 'pedro';
  Result := nomes[random(length(nomes)];
end;