Delphi 10.4 периодически собирает Exe с вирусом

unit FMain;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Grids, Vcl.ExtCtrls, System.RegularExpressions,
  Vcl.ComCtrls, System.ImageList, Vcl.ImgList, Vcl.Menus, Vcl.Buttons;
 
type
  TfrmMain = class(TForm)
    pnlMain: TPanel;
    strngrdT: TStringGrid;
    pnlBtn: TPanel;
    dlgOpen: TOpenDialog;
    pnlProgramm: TPanel;
    mmoProgram: TMemo;
    lblProgramm: TLabel;
    pnlT: TPanel;
    lblT: TLabel;
    StatusBar: TStatusBar;
    pnlD: TPanel;
    lblD: TLabel;
    strngrdD: TStringGrid;
    pnlH: TPanel;
    lblH: TLabel;
    strngrdH: TStringGrid;
    il16px: TImageList;
    spl1: TSplitter;
    chkPos: TCheckBox;
    edtPos: TEdit;
    pm: TPopupMenu;
    dlgSave: TSaveDialog;
    mniSetPos: TMenuItem;
    mniEdit: TMenuItem;
    btnOpen: TBitBtn;
    btnReplace: TBitBtn;
    btnSave: TBitBtn;
    btnSaveAs: TBitBtn;
    mniAnaliz: TMenuItem;
    pmTHD: TPopupMenu;
    mniEditByKlik: TMenuItem;
    procedure btnOpenClick(Sender: TObject);
    procedure strngrdTSelectCell(Sender: TObject; ACol, ARow: Integer;
      var CanSelect: Boolean);
    procedure btnReplaceClick(Sender: TObject);
    procedure chkPosClick(Sender: TObject);
    procedure mniSetPosClick(Sender: TObject);
    procedure mniEditClick(Sender: TObject);
    procedure mniAnalizClick(Sender: TObject);
    procedure btnSaveClick(Sender: TObject);
    procedure btnSaveAsClick(Sender: TObject);
    procedure mniEditByKlikClick(Sender: TObject);
  private
    { Private declarations }
    FileName: string;
    Pos: Integer;
    HeadText: string;
    Text: string;
    procedure AnalizProgram;
    procedure ReplaceToolsInText;
 
  public
    { Public declarations }
  end;
 
var
  frmMain: TfrmMain;
 
implementation
 
{$R *.dfm}
 
procedure TfrmMain.btnOpenClick(Sender: TObject);
begin
  if dlgOpen.Execute then begin
    StatusBar.Panels[0].Text := '';
    StatusBar.Panels[1].Text := '';
    edtPos.Text := '0';
    chkPos.Checked := False;
    mmoProgram.Text := '';
    mmoProgram.ReadOnly := True;
    mmoProgram.Font.Color := clWindowText;
    mniEdit.Checked := False;
 
    var Flag := False;
    if FileExists(dlgOpen.FileName) then begin
      FileName := dlgOpen.FileName;
      try
        mmoProgram.Lines.LoadFromFile(FileName);
        AnalizProgram;
        StatusBar.Panels[0].Text := ExtractFileName(FileName);
        StatusBar.Panels[1].Text := '[' + TimeToStr(Time) + '] Файл открыт.';
      except
        ShowMessage('Ошибка загрузки файла.');
      end;
    end else begin
      ShowMessage('Файл не найден.');
      Exit;
    end;
  end;
end;
 
procedure TfrmMain.btnReplaceClick(Sender: TObject);
begin
  ReplaceToolsInText;
  mmoProgram.Text := HeadText + Text;
  mmoProgram.ReadOnly := True;
  mmoProgram.Font.Color := clWindowText;
  mniEdit.Checked := False;
 
  AnalizProgram;
  StatusBar.Panels[1].Text := '[' + TimeToStr(Time) + '] Замена выполнена.';
end;
 
procedure TfrmMain.btnSaveAsClick(Sender: TObject);
begin
  if dlgSave.Execute then begin
    try
      FileName := dlgSave.FileName + ExtractFileExt(FileName);
      mmoProgram.Lines.SaveToFile(FileName);
      StatusBar.Panels[0].Text := ExtractFileName(FileName);
      StatusBar.Panels[1].Text := '[' + TimeToStr(Time) + '] Файл сохранен как ' + ExtractFileName(FileName);
      ShowMessage('Файл сохранен как ' + ExtractFileName(FileName))
    except
      ShowMessage('Не удалось сохранить файл ' + ExtractFileName(FileName))
    end;
  end;
end;
 
procedure TfrmMain.btnSaveClick(Sender: TObject);
begin
  try
    mmoProgram.Lines.SaveToFile(FileName);
    StatusBar.Panels[1].Text := '[' + TimeToStr(Time) + '] Сохранение завершено.';
    ShowMessage('Файл ' + ExtractFileName(FileName) + ' сохранен.')
  except
    ShowMessage('Не удалось сохранить файл ' + ExtractFileName(FileName))
  end;
end;
 
procedure TfrmMain.chkPosClick(Sender: TObject);
begin
  if not chkPos.Checked then begin
    edtPos.Text := '0';
  end;
end;
 
procedure TfrmMain.mniAnalizClick(Sender: TObject);
begin
  AnalizProgram;
  StatusBar.Panels[0].Text := '[' + TimeToStr(Time) + '] ' + 'Повторный анализ выполнен.' ;
end;
 
procedure TfrmMain.mniEditByKlikClick(Sender: TObject);
begin
  mniEditByKlik.Checked := not mniEditByKlik.Checked;
  if mniEditByKlik.Checked then begin
    strngrdT.Options := strngrdT.Options + [goAlwaysShowEditor];
    strngrdH.Options := strngrdH.Options + [goAlwaysShowEditor];
    strngrdD.Options := strngrdD.Options + [goAlwaysShowEditor];
  end else begin
    strngrdT.Options := strngrdT.Options - [goAlwaysShowEditor];
    strngrdH.Options := strngrdH.Options - [goAlwaysShowEditor];
    strngrdD.Options := strngrdD.Options - [goAlwaysShowEditor];
  end;
end;
 
procedure TfrmMain.mniEditClick(Sender: TObject);
begin
  mniEdit.Checked := not mniEdit.Checked;
  if mniEdit.Checked then begin
    mmoProgram.Font.Color := clHighlight;
    mmoProgram.ReadOnly := False;
  end else begin
    mmoProgram.Font.Color := clWindowText;
    mmoProgram.ReadOnly := True;
  end;
end;
 
procedure TfrmMain.mniSetPosClick(Sender: TObject);
begin
  edtPos.Text := IntToStr(mmoProgram.SelStart);
  chkPos.Checked := True;
  AnalizProgram;
end;
 
procedure TfrmMain.AnalizProgram;
begin
  Pos := StrToIntDef(edtPos.Text, 0);
  HeadText := Copy(mmoProgram.Text, 1, Pos);
  Text := Copy(mmoProgram.Text, Pos+1, Length(mmoProgram.Text));
 
  var ListMatch := TStringList.Create;
  ListMatch.Sorted := True;
  ListMatch.Duplicates := dupIgnore;
 
  var RegEx: TRegEx;
  var Match: TMatch;
 
  //Создание списка совпадений
  Match := RegEx.Match(Text, 'T\d+');
  while Match.Success do begin
    ListMatch.Add(Match.Value);
    Match := Match.NextMatch;
  end;
 
  //Очистка
  strngrdT.Cols[0].Clear;
  strngrdT.Cols[1].Clear;
 
  //Заполнение
  strngrdT.RowCount := ListMatch.Count;
  for var I := 0 to ListMatch.Count-1 do begin
    strngrdT.Cells[0, I] := ListMatch[I];
    strngrdT.Cells[1, I] := StringReplace(ListMatch[I], 'T', '', [rfReplaceAll]);
  end;
 
 
  ListMatch.Clear;
  //Создание списка совпадений
  Match := RegEx.Match(Text, 'H\d+');
  while Match.Success do begin
    ListMatch.Add(Match.Value);
    Match := Match.NextMatch;
  end;
 
  //Очистка
  strngrdH.Cols[0].Clear;
  strngrdH.Cols[1].Clear;
 
  //Заполнение
  strngrdH.RowCount := ListMatch.Count;
  for var I := 0 to ListMatch.Count-1 do begin
    strngrdH.Cells[0, I] := ListMatch[I];
    strngrdH.Cells[1, I] := StringReplace(ListMatch[I], 'H', '', [rfReplaceAll]);
  end;
 
  ListMatch.Clear;
  //Создание списка совпадений
  Match := RegEx.Match(Text, 'D\d+');
  while Match.Success do begin
    ListMatch.Add(Match.Value);
    Match := Match.NextMatch;
  end;
 
  //Очистка
  strngrdD.Cols[0].Clear;
  strngrdD.Cols[1].Clear;
 
  //Заполнение
  strngrdD.RowCount := ListMatch.Count;
  for var I := 0 to ListMatch.Count-1 do begin
    strngrdD.Cells[0, I] := ListMatch[I];
    strngrdD.Cells[1, I] := StringReplace(ListMatch[I], 'D', '', [rfReplaceAll]);
  end;
 
  ListMatch.Free;
end;
 
procedure TfrmMain.ReplaceToolsInText;
begin
  //Замена T на промежуточное значение ###T
  for var I := 0 to strngrdT.RowCount-1 do begin
    Text := StringReplace(Text, strngrdT.Cells[0, I], '###' + strngrdT.Cells[0, I], [rfReplaceAll]);
  end;
  //Замена ###T на конечное значение
  for var I := 0 to strngrdT.RowCount-1 do begin
    Text := StringReplace(Text, '###' + strngrdT.Cells[0, I], 'T' + strngrdT.Cells[1, I], [rfReplaceAll]);
  end;
 
  //Замена H на промежуточное значение ###H
  for var I := 0 to strngrdH.RowCount-1 do begin
    Text := StringReplace(Text, strngrdH.Cells[0, I], '###' + strngrdH.Cells[0, I], [rfReplaceAll]);
  end;
  //Замена ###H на конечное значение
  for var I := 0 to strngrdH.RowCount-1 do begin
    Text := StringReplace(Text, '###' + strngrdH.Cells[0, I], 'H' + strngrdH.Cells[1, I], [rfReplaceAll]);
  end;
 
  //Замена D на промежуточное значение ###D
  for var I := 0 to strngrdD.RowCount-1 do begin
    Text := StringReplace(Text, strngrdD.Cells[0, I], '###' + strngrdD.Cells[0, I], [rfReplaceAll]);
  end;
  //Замена ###D на конечное значение
  for var I := 0 to strngrdD.RowCount-1 do begin
    Text := StringReplace(Text, '###' + strngrdD.Cells[0, I], 'D' + strngrdD.Cells[1, I], [rfReplaceAll]);
  end;
end;
 
procedure TfrmMain.strngrdTSelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
begin
 if ACol = 1 then
   TStringGrid(Sender).Options := TStringGrid(Sender).Options + [goEditing]
 else
   TStringGrid(Sender).Options := TStringGrid(Sender).Options - [goEditing];
end;
 
end.