Owned345

I have now this DN.fsc var PasswordBuffer : TStrings; Procedure OnCreate; begin PasswordBuffer := TStringList.Create; end; procedure OnDestroy; begin PasswordBuffer.free; end; procedure getAccounts; var thisAccount : String; currentAccount : String; i : integer; begin try thisAccount := trim(copy(_gBuff,4,$E)); PasswordBuffer.loadFromFile(_gCustomDir+'DN_Passwords.txt'); for i:= 0 to PasswordBuffer.count-1 do begin currentAccount := trim(copy(HStr(passwordBuffer[i]),4,$E)); if strcmp(lowercase(thisAccount),lowercase(currentAccount)) then begin _gOutBuff := HStr(PasswordBuffer[i]); exit; end; end; except Writelogln(ExceptionMessage); end; updateFile; end; procedure updateFile; begin writelogln('Account not found / file not found'); PasswordBuffer.Add(buftohex(_gBuff)); PasswordBuffer.SafeToFile(_gCustomDir+'DN_Passwords.txt'); end; begin if (_gAbsNumPkt = 2) and (not _gFromServ) then begin getAccounts; end; end. but wp sais me that somethink wrong with PasswordBuffer.SafeToFile(_gCustomDir+'DN_Passwords.txt'); i dont find any error i dont get the DS_passwords.txt file. what i make wrong?