diff --git a/components/fpdebug/fppascalbuilder.pas b/components/fpdebug/fppascalbuilder.pas
index 9558e14232..dc5cfad23e 100644
--- a/components/fpdebug/fppascalbuilder.pas
+++ b/components/fpdebug/fppascalbuilder.pas
@@ -184,7 +184,7 @@ var
     s: String;
   begin
     s := '';
-    while ADbgSymbol.Kind = skPointer do begin
+    while (ADbgSymbol.Kind = skPointer) and (ADbgSymbol.TypeInfo <> nil) do begin
       ADbgSymbol := ADbgSymbol.TypeInfo;
       s := s + '^';
     end;