Index: pascalparsertool.pas
===================================================================
--- pascalparsertool.pas	(revision 62333)
+++ pascalparsertool.pas	(working copy)
@@ -6052,7 +6052,8 @@
   repeat
     // read identifier (a parameter of the generic type)
     Next;
-    AtomIsIdentifierSaveE(20180411194303);
+    ReadTypeReference( CreateChildNodes );
+    {AtomIsIdentifierSaveE(20180411194303);
     if CreateChildNodes then begin
       CreateChildNode;
       CurNode.Desc:=ctnSpecializeParam;
@@ -6068,7 +6069,7 @@
       Next;
     end;
     if CreateChildNodes then
-      EndChildNode; // close ctnSpecializeParam
+      EndChildNode;} // close ctnSpecializeParam
     if AtomIsChar('>') then
       break
     else if CurPos.Flag=cafComma then begin

Index: components/codetools/pascalparsertool.pas
===================================================================
--- components/codetools/pascalparsertool.pas	(revision 63142)
+++ components/codetools/pascalparsertool.pas	(working copy)
@@ -176,7 +176,8 @@
     procedure ReadGenericParamList(Must, AllowConstraints: boolean);
     procedure ReadAttribute;
     procedure FixLastAttributes;
-    procedure ReadTypeReference(CreateNodes: boolean);
+    procedure ReadTypeReference(CreateNodes: boolean; Extract: boolean = false;
+      Copying: boolean = false; const Attr: TProcHeadAttributes = []);
     procedure ReadClassInterfaceContent;
     function KeyWordFuncTypeClass: boolean;
     function KeyWordFuncTypeClassInterface(IntfDesc: TCodeTreeNodeDesc): boolean;
@@ -249,7 +250,8 @@
       Copying: boolean = false; const Attr: TProcHeadAttributes = []);
     procedure ReadSpecializeParams(CreateChildNodes: boolean; Extract: boolean = false;
       Copying: boolean = false; const Attr: TProcHeadAttributes = []);
-    procedure ReadAnsiStringParams;
+    procedure ReadAnsiStringParams(Extract: boolean = false;
+      Copying: boolean = false; const Attr: TProcHeadAttributes = []);
     function ReadClosure(ExceptionOnError, CreateNodes: boolean): boolean;
     function SkipTypeReference(ExceptionOnError: boolean): boolean;
     function SkipSpecializeParams(ExceptionOnError: boolean): boolean;
@@ -4388,7 +4390,8 @@
   until Attr=nil;
 end;
 
-procedure TPascalParserTool.ReadTypeReference(CreateNodes: boolean);
+procedure TPascalParserTool.ReadTypeReference(CreateNodes: boolean; Extract: boolean;
+  Copying: boolean; const Attr: TProcHeadAttributes);
 { After reading CurPos is on atom behind the identifier
 
   Examples:
@@ -4399,11 +4402,20 @@
     specialize TGenericClass<TypeRef,TypeRef>
     atype<char>.subtype
 }
+
+  procedure Next; inline;
+  begin
+    if not Extract then
+      ReadNextAtom
+    else
+      ExtractNextAtom(Copying,Attr);
+  end;
+
 var
   Cnt: Integer;
 begin
   if (Scanner.CompilerMode=cmOBJFPC) and UpAtomIs('SPECIALIZE') then begin
-    ReadSpecialize(CreateNodes);
+    ReadSpecialize(CreateNodes,Extract,Copying,Attr);
     exit;
   end;
   if CreateNodes then begin
@@ -4410,12 +4422,12 @@
     CreateChildNode;
     CurNode.Desc:=ctnIdentifier;
   end;
-  ReadNextAtom;
+  Next;
   Cnt:=1;
   while CurPos.Flag=cafPoint do begin
-    ReadNextAtom;
+    Next;
     AtomIsIdentifierSaveE(20180411194207);
-    ReadNextAtom;
+    Next;
     inc(Cnt,2);
   end;
   if AtomIsChar('<') then begin
@@ -4423,8 +4435,8 @@
     or ((Cnt=3) and LastUpAtomIs(3,'SYSTEM') and LastUpAtomIs(1,'STRING'))
     then begin
       // e.g. string<codepage>
-      ReadAnsiStringParams;
-      ReadNextAtom;
+      ReadAnsiStringParams(Extract,Copying,Attr);
+      Next;
     end
     else if (Scanner.CompilerMode in [cmDELPHI,cmDELPHIUNICODE]) then begin
       // e.g. atype<params>
@@ -4436,13 +4448,13 @@
         CurNode.EndPos:=CurPos.StartPos;
         EndChildNode;
       end;
-      ReadSpecializeParams(CreateNodes);
-      ReadNextAtom;
+      ReadSpecializeParams(CreateNodes,Extract,Copying,Attr);
+      Next;
       while CurPos.Flag=cafPoint do begin
         // e.g. atype<params>.subtype
-        ReadNextAtom;
+        Next;
         AtomIsIdentifierSaveE(20180411194209);
-        ReadNextAtom;
+        Next;
       end;
     end;
   end;
@@ -6068,23 +6080,7 @@
   repeat
     // read identifier (a parameter of the generic type)
     Next;
-    AtomIsIdentifierSaveE(20180411194303);
-    if CreateChildNodes then begin
-      CreateChildNode;
-      CurNode.Desc:=ctnSpecializeParam;
-      CurNode.EndPos:=CurPos.EndPos;
-    end;
-    Next;
-    while Curpos.Flag=cafPoint do begin
-      // first identifier was unitname, now read the type
-      Next;
-      AtomIsIdentifierSaveE(20180411194305);
-      if CreateChildNodes then
-        CurNode.EndPos:=CurPos.EndPos;
-      Next;
-    end;
-    if CreateChildNodes then
-      EndChildNode; // close ctnSpecializeParam
+    ReadTypeReference(CreateChildNodes,Extract,Copying,Attr);
     if AtomIsChar('>') then
       break
     else if CurPos.Flag=cafComma then begin
@@ -6099,11 +6095,14 @@
   end;
 end;
 
-procedure TPascalParserTool.ReadAnsiStringParams;
+procedure TPascalParserTool.ReadAnsiStringParams(Extract: boolean; Copying: boolean; const Attr: TProcHeadAttributes);
 begin
   // string<codepage>
   repeat
-    ReadNextAtom;
+    if not Extract then
+      ReadNextAtom
+    else
+      ExtractNextAtom(Copying,Attr);
     if AtomIsChar('>') then break;
     case CurPos.Flag of
     cafRoundBracketOpen,cafEdgedBracketOpen: ReadTilBracketClose(true);

Index: components/codetools/tests/testcodecompletion.pas
===================================================================
--- components/codetools/tests/testcodecompletion.pas	(revision 63142)
+++ components/codetools/tests/testcodecompletion.pas	(working copy)
@@ -491,6 +491,7 @@
     'type',
     '  TBird = class',
     '    procedure DoIt(i: specialize TGenList<longint>);',
+    '    procedure DoIt2(i: specialize TGenList<specialize TGenObject<integer>>);',
     '  end;',
     'implementation',
     'end.'],
@@ -504,6 +505,7 @@
     '',
     '  TBird = class',
     '    procedure DoIt(i: specialize TGenList<longint>);',
+    '    procedure DoIt2(i: specialize TGenList<specialize TGenObject<integer>>);',
     '  end;',
     'implementation',
     '',
@@ -511,6 +513,10 @@
     'begin',
     'end;',
     '',
+    'procedure TBird.DoIt2(i: specialize TGenList<specialize TGenObject<integer>>);',
+    'begin',
+    'end;',
+    '',
     'end.']);
 end;
 
@@ -523,6 +529,7 @@
     'type',
     '  TBird = class',
     '    procedure DoIt(i: TGenList<longint>);',
+    '    procedure DoIt2(i: TGenList<TGenObject<longint>>);',
     '  end;',
     'implementation',
     'end.'],
@@ -536,6 +543,7 @@
     '',
     '  TBird = class',
     '    procedure DoIt(i: TGenList<longint>);',
+    '    procedure DoIt2(i: TGenList<TGenObject<longint>>);',
     '  end;',
     'implementation',
     '',
@@ -543,6 +551,10 @@
     'begin',
     'end;',
     '',
+    'procedure TBird.DoIt2(i: TGenList<TGenObject<longint>>);',
+    'begin',
+    'end;',
+    '',
     'end.']);
 end;