{
Speak, i.e. send message to speech server.
}
procedure Speak(msg:String);
var b:Boolean; ref:Integer;
begin
 msg:=Trim(msg);
 if Length(msg)>0 then begin
  ref:=RefFind('Device &SpeakSrv');
  if ref<>0 then b:=DevSend(ref,'@speak='+msg+CRLF)>0;
 end;
end;
