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

unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls, system.Diagnostics;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Timer1: TTimer;
    Memo1: TMemo;
    Memo2: TMemo;
    Button2: TButton;
    Timer2: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
  private
    { Private declarations }
  public
    SW: TStopWatch;
    SW2: TStopWatch;
    TmsCnt: uint32;
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
function LongMathFnx(n: integer): extended;
begin
if n > 1
then LongMathFnx := n + sin(0.001 * n) / sqr(cos(0.001 * n)) + LongMathFnx(n-2) + LongMathFnx(n-1) // функция вызывает сама себя
else LongMathFnx := n + sin(0.001 * n) / sqr(cos(0.001 * n));
end;
 
function DecodeStWtTime(var inrec : TStopwatch): string;
var
 clk, h, min, sec, msec : integer;
 s :string;
begin
 H := inrec.Elapsed.Hours;
 Min := inrec.Elapsed.Minutes;
 Sec := inrec.Elapsed.Seconds;
 MSec := inrec.Elapsed.Milliseconds;
 if h < 10 then s := '0' +  h.ToString
 else s := h.ToString;
 result := s + ':';
 if min < 10 then s := '0' + min.ToString
 else s := min.ToString;
 result := result + s + ':';
 if sec < 10 then s := '0' +  sec.ToString
 else s := sec.ToString;
 result := result + s + ':';
 if msec < 10 then s := '00' + msec.ToString
 else begin
  if msec < 100 then s := '0' + msec.ToString
  else s := msec.ToString;
 end;
 result := result + s;
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
var i: uint32;
begin
 SW := TStopWatch.Create;
 SW.Reset;
 TmsCnt := 0;
 timer1.Enabled := not Timer1.Enabled;
 for I := 1 to 37 do begin
var x := LongMathFnx(i);
  memo1.Lines.Add('N ' + i.ToString +' >> '+ x.ToString);
 end;
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
 SW2 := TStopWatch.Create;
 SW2.Reset;
 TmsCnt := 0;
 timer2.Enabled := not Timer2.Enabled;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
 TmsCnt := TmsCnt + 1;
 if TmsCnt = 500 then begin
  Timer1.Enabled := false;
  Memo1.Lines.SaveToFile('log1');
 end;
 SW.Stop;
 memo1.lines.Add('Cnt ' + TmsCnt.ToString +' >> '+ DecodeStWtTime(SW));
 SW.Reset;
 SW.Start;
end;
 
procedure TForm1.Timer2Timer(Sender: TObject);
begin
  TmsCnt := TmsCnt + 1;
 if TmsCnt = 38 then begin
  Timer2.Enabled := false;
  Memo2.Lines.SaveToFile('log2');
 end;
var x := LongMathFnx(TmsCnt); 
 SW2.Stop;
 memo2.lines.Add('Cnt ' + TmsCnt.ToString +' >> '+ DecodeStWtTime(SW2) +' >> '+ x.ToString);
 SW2.Reset;
 SW2.Start;
end;
 
end.