Hola,
Yo me aproximaría al asunto con algo así:
Código Delphi
[-]
var
URLs: array[0..4] of string = (
'http://www.clubdelphi.com',
'http://www.clubdelphi.com/foros/',
'http://www.clubdelphi.com/trucos/',
'http://componentes.clubdelphi.com/',
'http://www.terawiki.clubdelphi.com/'
);
procedure TForm1.Button1Click(Sender: TObject);
begin
Randomize();
ShowMessage(
URLs[Random(Length(URLs)-1)]
);
end;
Como ves, primero preparamos un "Array de cadenas" con las URLs necesarias. Después, para obtener una URL aleatoria de entre dichas URLs, usamos algo como:
Código Delphi
[-]
URLs[Random(Length(URLs)-1)]
La función "Random()" nos retornará un número aleatorio entre el 0, y, en este caso, el número de URLs en nuestro "Array" menos uno, puesto que el número de elementos es 5, pero, el último elemento del "Array" tendrá un índice 4. Total, que obteniendo un índice válido ya podemos recoger una de las URLs de nuestro "Array".
Quizá existan mejores formas de hacerlo, más aún, estoy seguro de que así es, pero, al menos es una posible solución.