项目管理，删除最后一个项目报错相关

Frames/ProjectManagerFme.pas

@@ -2049,17 +2049,21 @@ var
   pc: Integer;
 begin
   vItem := stdProjects.IDTree.Items[ACoord.Y - zgProjects.FixedRowCount];
-  if ACoord.X = 11 then
-  begin
-    value := vItem.Rec.ValueByName('AuditStatus').asString;
-    pc := vItem.Rec.ValueByName('PhaseCount').AsInteger;
-    if (value = '-1') and (pc <> 0) then
-      AColor := TColor($00daedd4);
-  end;
 
-  if vItem.Rec.ValueByName('WebMeWorking').AsBoolean then
+  if Assigned(vItem.Rec) then
   begin
-    AColor := TColor($000099FF);
+    if ACoord.X = 11 then
+    begin
+      value := vItem.Rec.ValueByName('AuditStatus').asString;
+      pc := vItem.Rec.ValueByName('PhaseCount').AsInteger;
+      if (value = '-1') and (pc <> 0) then
+        AColor := TColor($00daedd4);
+    end;
+
+    if vItem.Rec.ValueByName('WebMeWorking').AsBoolean then
+    begin
+      AColor := TColor($000099FF);
+    end;
   end;
 end;