diff --git a/source/main.pas b/source/main.pas index 3a73e5b2..7395b9dc 100644 --- a/source/main.pas +++ b/source/main.pas @@ -5575,8 +5575,10 @@ var Obj: PDBObject; begin // Tables and views can be renamed, routines cannot - Obj := Sender.GetNodeData(Node); - Allowed := Obj.NodeType in [lntTable, lntView]; + if Assigned(Node) then begin + Obj := Sender.GetNodeData(Node); + Allowed := Obj.NodeType in [lntTable, lntView]; + end; end;