add procedure SaveStrToFile(const Str, FileName : string);