[Eddy]

ой извиняюсь, там уже скомпиленная версия. забыл)
выдери оттуда либу trybluetooth
код:
program bluetooth;
uses trybluetooth;
var i:integer;
begin
i:=getbluetooth;
drawText('Bluetooth Support:', 0, 0);
if i=10 then drawtext('True',getstringwidth('Bluetooth Support:'),0)
else drawtext('False',getstringwidth('Bluetooth Support:'),0);
while getkeypressed<>ke_key0 do begin
drawtext('Press key "0" to exit',0,getstringheight('B'));
repaint;
end;
end.
просьба не стебаться над реализацией