Random no Delphi

TEnho que mostrar uma dica a cada vez que inicío o programa; a dica está no banco que tem o id, e a descrição. Queria usar um random na somatoria dos registros encontrados e passar esse numero como id para a query. Mas o Delphi sempre faz o random do mesmo numero qdo inicio. Alguém tem uma idéia melhor ou ja fez isso.....