* Prepend T when writing pointer types and PrependTypes is set

utils/h2pas/h2pas.pas

@@ -9221,7 +9221,9 @@ begin
   for i:=0 to (PTypeList.Count-1) do
    begin
      originalstr:=copy(PTypelist[i],2,length(PTypeList[i]));
-     Writeln(headerfile,aktspace,PTypeList[i],'  = ^',originalstr,';');
+     if PrependTypes then
+       originalstr:='T'+originalstr;
+     Writeln(headerfile,aktspace,'  '+PTypeList[i],'  = ^',originalstr,';');
    end;
   if not packrecords then
    begin

utils/h2pas/h2pas.y

@@ -3019,7 +3019,9 @@ begin
   for i:=0 to (PTypeList.Count-1) do
    begin
      originalstr:=copy(PTypelist[i],2,length(PTypeList[i]));
-     Writeln(headerfile,aktspace,PTypeList[i],'  = ^',originalstr,';');
+     if PrependTypes then
+       originalstr:='T'+originalstr;
+     Writeln(headerfile,aktspace,'  '+PTypeList[i],'  = ^',originalstr,';');
    end;
   if not packrecords then
    begin