[J-Fobos]

begin
if (FromServer) and (pck[1]=#$00) then
begin
list.Add(pck);
pck:='';
list.SeveToFile('c:\asd.txt');
end;
end.

Это часть скрипта. Пакет со списком заблокируется и сохранится в файл, дисконекта не произойдет.

ps: list: TStringList