معرفة خصائص ملف - نسخة قابلة للطباعة

كود :
procedure  TFMForm.Properties1Click(Sender: TObject); 
 var 
   Attributes, NewAttributes: Word; 
 begin 


   with  FileAttrForm  do
    begin
     FileDirName.Caption := FileListBox1.Items[FileListBox1.ItemIndex];
     { set box caption } 
     PathName.Caption := FileListBox1.Directory;
     { show directory name } 
     ChangeDate.Caption :=  
       DateTimeToStr(FileDateToDateTime(FileAge(FileListBox1.FileName)));
     Attributes := FileGetAttr(FileDirName.Caption); 
     { read file attributes } 
     ReadOnly.Checked := (Attributes  and  faReadOnly) = faReadOnly; 
     Archive.Checked := (Attributes  and  faArchive) = faArchive; 
     System.Checked := (Attributes  and  faSysFile) = faSysFile; 
     Hidden.Checked := (Attributes  and  faHidden) = faHidden; 
  //    if  ShowModal <> id_Cancel  then 	  { execute dialog box }
  //    begin
       NewAttributes := Attributes; 
       { start with original attributes } 
        if  ReadOnly.Checked  then 
         NewAttributes := NewAttributes  or  faReadOnly 
        else   
         NewAttributes := NewAttributes  and not  faReadOnly;
        if  Archive.Checked  then 
         NewAttributes := NewAttributes  or  faArchive 
        else   
         NewAttributes := NewAttributes  and not  faArchive;
        if  System.Checked  then   
         NewAttributes := NewAttributes  or  faSysFile 
        else   
         NewAttributes := NewAttributes  and not  faSysFile;
        if  Hidden.Checked  then   
         NewAttributes := NewAttributes  or  faHidden 
        else   
         NewAttributes := NewAttributes  and not  faHidden; 
        if  NewAttributes <> Attributes  then  { if anything changed... } 
         FileSetAttr(FileDirName.Caption, NewAttributes); 
          { ...write the new values } 
      end ; 
    end ;