com.*.RecordType cannot be cast to com.*.PointerType

[EmilyGraceSeville7cf]

program Test; 

type
  TSample = record
    sampleField: integer; 
  end;
  
  PSample = ^TSample;


function NewStack(): PSample;
var
  sample: PSample;

begin
  sample^.sampleField := 0;
end;


begin
  
end.