Orden de Salida

[kwan]

Hola estoy intentando hacer una aplicación que me de un orden de salidad de unos participantes, hice algo como lo que pongo a continuación.

procedure TForm1.Button1Click(Sender: TObject);
begin
randomize;
edit1.Text := inttostr(random(StrToInt(Edit2.Text)) + 1 );
end;

en un edit meto el número de participantes y dandole con un button, en el otro edit me va dando un número aleatorio que seria el numero de salida de cada participante, el problema es que me repite los números, bueno en relaidad lo que busco es una forma de hacerlo, que al darle a un button despues de metido el numero de participantes me salga pj en un memo el número de participante en un orden aliatorio pj del 1 al 5.
2
3
1
5
4
Bueno no se si me explique correctamente pero si alguien tiene algo con que orientarme o algun link donde mirar se lo agradeceria Gracias.

saludos

Kwan.