Автосохранение расшифрованого пакета

[Юрьевич]

Помогите сделать сохранение расшифрованых пакетов в файл
вот сам скрипт:

var
s:TstringList;

procedure init;
begin
s:=TStringList.Create;
end;

procedure Free;
begin
s.SaveToFile('C:\NPCinfo.txt');
s.Free;
end;

begin
if (FromServer) and (ReadC(1)=$0C) then s.Add(pck);
end.

создает пустой файл, пакеты расшифрованые не записует

пробовал без

and (ReadC(1)=$0C)

сохраняет лог пакетов через раз не пойму почему так

скрипт нужен для парсинга инфы о нпс\htm файлов и прочего с PTS Goddess of Destruction
если кто не жадный поделитесь скриптами\програмами для данной работы =) буду очень благодарен