放开云版附件，有事冲我来。

Forms/UpFileManageFrame.pas

@@ -380,6 +380,8 @@ end;
 procedure TUpFileManageView.btnDownClick(Sender: TObject);
 var sFile: string;
 begin
+  if not Assigned(Selected) then Exit;
+
   Screen.Cursor := crHourGlass;
   try
     Selected.Data.Status := ufsDowning;

Frames/ProjectFme.dfm

@@ -213,7 +213,6 @@ object ProjectFrame: TProjectFrame
           Enabled = False
           ImageIndex = 6
           Style = tbsCheck
-          Visible = False
           OnClick = tobtnUpFileClick
         end
         object tobtnBookmark: TToolButton