forum.boolean.name - Bluetooth и работа с ним

Так сам нашел отправку русифицырованый пример
PHP код:

		
			
program BtProject;
uses bt;
var
    cmdOK, clicked : command;
    wait, search : integer;
    bt_servers:array[1..2] of String; {массив под сервера, размер будет переопределен автоматически}
{вызывается после завершения поиска серверов. содержит список серверов разделенный ||.
временно возвращает только первый найденный}
procedure servers_list(list: integer);
begin
  wait := MenuAppendString(bt_servers[1]); {количество обнаруженных серверов} 
    Debug('servers:'+list);
    bt.start(bt_servers[1]);{старт соединения с сервером}
end;
{вызывается после успешного установления соединения}
procedure accept_connection;
var
    msg: String;
begin
    if bt.is_client=1 then {проверяем мы слиент или сервер :)}
        msg := 'Сообщение от клиента'
    else
        msg := 'Сообщение от сервера';
    bt.send_message(msg);{посылаем сообщение}
end;
{вызывается при возникновении ошибок в соединении, пропадании соединения.
автоматически вызывается bt.stop;}
procedure connection_error;
var
    cm: command;
begin
    showAlert('Bluetooth',  
              'Ошибка Bluetooth соединения.', 
              loadImage('/icon.png'),  
              ALERT_ERROR);  
    playAlertSound;  
    cm := createCommand('OK', CM_OK, 1);  
    addCommand(cm);  
    repeat  
        delay(100);  
    until getClickedCommand <> emptyCommand;  
end;
{вызывается при получении сообщения от оппонента}
procedure message_received(msg:String);
begin
  wait := MenuAppendString(msg); 
    Debug(msg);
end;
begin
    bt.init;
    ShowMenu('Main Menu', CH_IMPLICIT); 
     
    wait      := MenuAppendString('Создать'); 
    search    := MenuAppendString('Найти'); 

    cmdOK := CreateCommand('OK', CM_SCREEN, 1); 
    AddCommand(cmdOK); 

    repeat 
      delay(100); 
      clicked := GetClickedCommand; 
    until clicked = cmdOK; 

    if MenuGetSelectedIndex = wait then begin
            bt.wait_connection('ME');  {запуск сервера на ожидание соединений}
            wait := MenuAppendString('запуск сервера на ожидание соединений');
        end;    
    if MenuGetSelectedIndex = search then begin
            bt.search_connection; {старт поиска серверов}
            wait := MenuAppendString('старт поиска серверов');
        end;
    repeat 
      delay(100); 
      clicked := GetClickedCommand; 
    until clicked = cmdOK;     
    bt.stop; {отключаем соединение}
end.