Так сам нашел отправку русифицырованый пример
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.