[Eggis]

Отправка:

msg:=''+x //х - переменная;
bt.send_message(msg);

На получаемом телефоне:

procedure message_received(msg:String);
begin
x:=StringToInteger(msg);
end;

Если несколько переменных в одном сообщении, то пользуешься copy, чтобы разбить, как сказал cherepets