Cached passwords function problem v Delphi

Imam problem ,che kogato napisha funnkcijata za namirane na keshirani paroli (podobna na tazi ot [линк]) i v kraja na func. ja karam da sejva parolite v textov fail pri sledvashto startirane na programata,tja ne otkriva nikakvi paroli i iznasja saobstenie ,che "user is not logged on".kak moje da se sejvat parolite i da ne se polu4ava taka.

ami pstavi textovite failove i izpolzvai niakoia munichka tablica;)) po-lesno,po-chisto, po -podredeno;)) a ima criptirashti driveri za samata tablica primerno 128b me che shte uspeesh da zashtitish neshto no otnema vreme na netoriziranite lica i to mnogo;))