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