Lazarus RC3 for Carbon getting Range error.

[Josh]

Hi

function TForm1.has_focus:boolean;
begin
  result:=screen.ActiveForm.Name='Form1';
end;

The above gives a range check error in the result line.
Same code works on cocoa and window