In fcl-passrc, TPasElement.GetDeclaration produces runtime error in processing declarations of string variables

In fcl-passrc, TPasElement.GetDeclaration produces runtime error (219 - invalid cast) in processing declarations of string variables.

For example, the above issue arises with the following program:

unit test;
{$Mode ObjFpc}{$H+}

interface

var
  T0:string;

implementation

end. 

I think this issue is due to a regression caused by a recent patch, inspired (but different) to the one I have proposed.

See attached zip archive to reproduce.

test.zip