Надеюсь на помощь

[Deffol]

написал уже

procedure AdminMsg(s:string);
begin
     WriteC($17);
     WriteH(54356);
     WriteC(35);  
     WriteC(0);
     WriteD(0); 
     WriteH(0);
     WriteS(s);
     SendToClient;
end;

Добавлено через 1 час 4 минуты
ну потом в процедуре разбора пакета, просто вставить в мсдж данные, лвла, ника и т.д., тока лвл не могу найти в пакете

Добавлено через 36 минут
подскажите как можно пакет обозвать который приходит на сервер, чтоб процедуру на него написать

[Kilatif]

Deffol, ну это уже дело твое =) Как тебе удобнее, так и обзывай =)