Windows 11 тормозит обмены через СОМ-порт

function TBComPort.ReadAsync(var Buffer; Count: Integer; var AsyncPtr: PAsync): Integer;
var
  Success: Boolean;
  BytesTrans: DWORD;
begin
  if AsyncPtr = nil then
    raise EComPort.Create(CEMess[5]);
  AsyncPtr^.Kind := okRead;
  Success := ReadFile(FHandle, Buffer, Count, BytesTrans, @AsyncPtr^.Overlapped)
    or (GetLastError = ERROR_IO_PENDING);
  if not Success then
    raise EComPort.Create(CEMess[4]);
  Result := BytesTrans;
end;

Procedure TForm0.Port0RxChar(Sender:TObject; Count:integer); {П р и е м}
  Var i,j:integer; Label 20;
  Begin
    If Count=0 then Exit; Port0.Read(Buff,Count); For i:=1 to Count do ByteRx[i+NumRx]:=Buff[i]; NumRx:=NumRx+Count;
    Case Nom of
      0:Begin                                   {C o n t r o l l e r}
          If (NumRx<17) then Exit;
          UnitSos[Nom]:=1; If ByteRx[1]<>Nom+16 then GoTo 20;
          For i:=2 to 9 do If ByteRx[i]<>ByteRx[i+8] then GoTo 20; UnitSos[Nom]:=3;
          {Обработка}
        End;
      1:Begin                                   {P o w e r}
          If NumRx<13 then Exit; UnitSos[Nom]:=1; If ByteRx[1]<>Nom+16 then GoTo 20;
          For i:=2 to 7 do If ByteRx[i]<>ByteRx[i+6] then GoTo 20;
          {Обработка}
        End;
      2:Begin                                   {Gas}
          If NumRx<9 then Exit; UnitSos[Nom]:=1; If ByteRx[1]<>Nom+16 then GoTo 20;
          For i:=2 to 5 do If ByteRx[i]<>ByteRx[i+4] then GoTo 20; UnitSos[Nom]:=3; Buf:=1.25*(5*(256*ByteRx[3]+ByteRx[2])/65536);
          {Обработка}
        End;
    End;
    UnitSosInt[Nom]:=10;
20: Timer0Timer(Sender);
  End;
 
Procedure TForm0.Port0TxEmpty(Sender:TObject);  {Б у ф е р     п у с т}
  Begin If TimeForTx then Begin Port0.Parity:=paMark; Port0.Write(ByteTx,NumTx); TimeForTx:=false; End; End;
 
Procedure TForm0.Timer0Timer(Sender:TObject);   {T i m e r  0}
  Var i,j:integer;
  Begin
    If not Port0.Connected then Exit; Dec(UnitSosInt[Nom]); If UnitSosInt[Nom]<1 then Begin UnitSosInt[Nom]:=0; UnitSos[Nom]:=2; End;
    Inc(Nom); If Nom>2 then Nom:=0;
    Timer0.Interval:=0; Timer0.Interval:=20; ByteTx[1]:=16+Nom; NumRx:=0;
    Port0.Parity:=paSpace; Port0.Write(ByteTx,1); TimeForTx:=true;
    Case Nom of
       0:Begin
          {Формирование пакета}
          For i:=1 to 10 do ByteTx[i+10]:=ByteTx[i]; NumTx:=20;
        End;
 
      1:Begin                                         {P o w e r}
          {Формирование пакета}
          For i:=1 to 4 do ByteTx[i+4]:=ByteTx[i]; NumTx:=8;
        End;
 
      2:Begin                                         {G a s}
          {Формирование пакета}
          ByteTx[2]:=ByteTx[1]; NumTx:=2;
        End;
    End;
  End;