Error "Out Of Stack Range"

[Vizit0r]

Script to reproduce error:

program dev;

type Tzzz = record
   aaa : Boolean;
end;

function testfunc : Tzzz;
begin
  Result.aaa := False;
end;

begin
  if testfunc.aaa then    
     Exit; 
end.  

error raised after leaving testfunc.