[wimax]

Kilatif, та читал чота у меня не то получаетса серавно

var
typ,a:integer;
msg,nik:string;


begin 
if fromserver and (pck[1]=#$4A) then 
begin
typ:=ReadD(6)
a:=10;
nik:=ReadS(a);
msg:=ReadS(a);
begin
  buf := pck;
  writed(0)
  writed(typ)
  writes(nik);
  writes('___'+msg+#0+#0+#0+#0+#0);
  pck := buf;
  end;
  end;
end.

ну вот и что не так я проста толком ищо не понел как все роботает