так код только на отлов первого и выставление флага. теперь добавляй условие - если флаг есть и пакет равен тому твоему, то блочить.
PHP код:
const
name='Твойник';
var
Q:Boolean;
Procedure Init;
begin
q:=false;
end;
Procedure Free;
begin
end;
begin
if (FromServer) and (Connectname=name) and (pck[1]=#$01) then
begin
if (q=false)
then
begin
q:=true;
SendMSG('Пакет принят');
end
else begin
pck:='';
end;
end;
end.
с ендами и синтаксисом елсе мог напутать