[goodvin1709]

const
name='Твойник';
var
Q:Boolean;
Procedure Init;
begin
q:=false;
end;
Procedure Free;
begin
end;
begin
if (fromServer) and (Connectname=name) and (pck[1]=#$Первый байт твоего пакета) and (q=false) then
begin
q:=true;
SendMSG('Пакет принят');
end;
end.

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