Hi all,
I dont know where to place this post, i placed it in here.

My question is so simple that, i add the {$R+} range checking directive but fpc compiles the following code without any error.
Thanks.
procedure TForm1.FormCreate(Sender: TObject);
var
a: longint;
begin
edit1.Text:=inttostr(high(a)+10);
end;