[Rity]

спасибо большое

Добавлено через 11 минут
чета всеранво не пойму как узнать ХП
и выводилось к примеру в
procedure SendMsg(msg:string);

begin
  buf:=#$4A;
  WriteD(0);
  WriteD(10);
  WriteS('');
  WriteS(msg);
  SendToClient;
end;

те через этот пакет можно узнать и левел и ЦП..
как сделать что писался левел хп и цп в SendMsg