[Sieg]

QaK, а я еще раз говорю, что не собираюсь писать полнофункционального бота.

Добавлено через 6 минут
2Stasrus,
var
tmp :String;

.....

begin
if FromServer and (pck[1]=#$2A) then tmp:=pck[3]+pck[5]+pck[7];
end.

Я только не могу понять, чего ты добьешся, беспорядочно выхватывая байты и складируя их в некоторую переменную.