[alexteam]

а в чем проблема то ? %)
как то так.

offset := 2;
Text := reads(offset);//текст
chattype := readd(offset);//тип чата
target := reads(offset);//кому
buf := #$49;//собираем свой пакет

for i := 1 to length(text) do 
  begin
    writes(text[i]);//пишем символ + 0000
    writeh($08,length(buf)-2)//меняем последние 0000 на 0800
  end;
writeh(0);//final 0000
writed(chattype);//тип чата
if target <> '' then
  writes(target); //кому писали. если есть.
pck := buf; //магическая строчка.