Подскажите как написать скрипт

[semiromid]

Если пришел пакет от сервера 39
отправляем пакет на сервер пакет 42

begin

if FromServer and
buf:=#$39;
then begin
buf:=#$42;
SendToServer


end;
end.