Rotina para gerar um senha

Caros Colegas,

Preciso de uma rotina gara gerar uma senha (tipo o exemplo das dicasdelphi), mas que apos gerar eu possa ler no programa, ou seja, seja a senha lida pelo sistema foi a mesma gerada então o sistema abre, caso contrario ele não abre.



Desde já, muito obrigado ....


Wiltefran