Otra idea para guardar tu password es el registro de Windows, así quede fuera del alcance de los fisgones de archivos.
Puestos a variar el código, usemos la API de Windows:
Código Delphi
[-]
procedure Write(FileName: PCHAR; Buffer: Pointer; Size: integer);
var
hFile: integer;
begin
hFile:= CreateFile(FileName, GENERIC_WRITE, 0, nil, OPEN_ALWAYS, FILE_FLAG_WRITE_THROUGH, 0);
if hFile <> -1 then
begin
_llseek(hFile, 0, FILE_END);
_lwrite(hFile, Buffer, Size);
_lclose(hFile);
end;
end;
Saludos.