Seleccionar un registro aleatorio en una tabla con un query!!

[lobosito]

Código Delphi [-]
  // Get an integer random number in the range 1..100
  for i := 1 to 5 do
  begin
    int := 1 + Random(100);    // The 100 value gives a range 0..99
    ShowMessage('int = '+IntToStr(int));
  end;
 end;

Perdón por no haberme explicado bien, conozco como funciona random, pero el problema radica en que siempre me devuelve el mismo término en mi consulta, es decir no está generando aleatorios, siempre me devuelve el número 1... y necesito que esto cambie porque solo necesito un registro.