Юникод VS шифт вещей

[alexteam]

var
  text : string;
begin
  id:=ReadD(2);

  text := 'Type=1 ID='+inttostr(id)+' Color=0 Underline=0 Title='

  buf := #$49; // [49] //id


  writed($90008);              //[49] [08 00 09 00
  writes(text);                //[49] [08 00 09 00+uText+00 00
  writec($1B, length(buf)-1);  //[49] [08 00 09 00+uText+1B 00
  writes('ItemName');          //[49] [08 00 09 00+uText+1B 00+uItemName+00 00
  writec($1B, length(buf)-1);  //[49] [08 00 09 00+uText+1B 00+uItemName+1B 00
  writed($90008);              //[49] [08 00 09 00+uText+1B 00+uItemName+1B 00 + 08 00 09 00
  writeh(0);                   //[49] [08 00 09 00+uText+1B 00+uItemName+1B 00 + 08 00 09 00 + 00 00] //text
  writed(0);                   //[49] [08 00 09 00+uText+1B 00+uItemName+1B 00 + 08 00 09 00 + 00 00] [00 00 00 00] //type