Følgende funksjon vil returnere True hvis en fil er skrivebeskyttet
funksjon IsReadOnly (konst Filename: string): Boolean;. Var sr: TSearchRec; begynne (* Anta ikke lese bare *) Resultat: = False;
hvis FindFirst (Filename, faAnyFile, sr) = 0, så begynner Resultat: = (sr.Attr og faReadOnly) < > 0; FindClose (sr); slutt; end;