ReadLn naredba u Delphi-u (konzolna aplikacija)

Kada sa program startuje, on treba da pita korisnika da unese lozinku...
To radim sa ReadLn(), ali kako da stavim da umesto pravih karaktera koje korisnik unese prikazuje zvezdice ili neki drugi simbol ?
Ranije sam to u pascal-u radio sa ReadKey, ali to u Delphi-u ne postoji...

poz

pogledaj kako to radi u pascalu pa prepiši u delfi...;)))

Potpis

Blago onom tko rano poludi,
pa mu život u veselju prođe

Pa rekao sam da ne znam da uradim... !
U pascalu sam ranije radio to tako napravim loop koji ce vrteti ReadKey sve dok se ne pritisne enter.. Ali u Delphi-u ne postoji ReadKey...