[Lazarus] Bluetooth package error

[Anthony Tekatch]

Hello,

I'm trying to get the Bluetooth package running (here):
  http://wiki.freepascal.org/Bluetooth
and got the following error on Lazarus V1.1;

  Error: Fields cannot appear after a method or property definition, start a new visibility section first

at this line: 
  WiiMotes: TWiiMotes;

in this file: 
  WiiMoteTools.pas

I think that this file needs to be updated by putting the constructor /
destructor / procedure / function definitions after the variable
definitions.

If I am right, can someone update the source code?



Also, I noticed that the "hci_inquiry_1" returns 0 if only one Bluetooth
device is found, in WiiMoteTools.pas :
  "for i:=0 to found_devices-1 do begin"
will not work, it should be changed to:
  "for i:=0 to found_devices do begin"


Thanks,
Anthony