{
Send message to Virtual Keyboard server.
}
function VkbdSend(msg:String):Integer;
var dev:Integer;
begin
 if Length(msg)>0 then dev:=RefFind('Device &VkbdSrv') else dev:=0;
 if dev<>0 then VkbdSend:=Round(DevSend(dev,msg)) else VkbdSend:=0;
end;
