Все можно )
попробуйте заменить процедуру SendPck
delphi Код:
procedure SendPck(Sender: TObject);
begin
if (Counter mod 2) = 0 then begin
buf:=hstr('7C B1 19 00 00');
SendToClient;
end else begin
buf:=hstr('65 DE 7D 22 10 00 00 00 00');
SendToServer;
end;
Dec(Counter); //Уменьшаем счетчик
if Counter=0 then //Проверяем
Timer.enabled :=false; //и если надо выключаем
end;
и в 2 местах
Counter := 10; на Counter := 20;