procedure TForm1.sButton4Click(Sender: TObject);
var
a:string;
begin
AntiScanCE_Start;
 try
 a := IdHTTP1.Get('http://r97804yj.beget.tech/BazaKeyLoader.bd');
  if Pos(GetSerialNum,a) = 0 then
  begin
   MessageBox(Handle, 'Ошибка, у вас нет лицензии на данный чит!', 'Error',
     MB_OK + MB_ICONSTOP);
  end
  else
  if sButton4.Enabled = True then
  begin
    Timer5.Enabled := true;
    sProgressBar1.Position := 5;
   if AOBScan(Cheat[4], 0, $5FFFFFFF, '02 28 4C 15 00 06 02 03 7D 7A 12 00 04 03 0B 07 16 3B 22 00 00 00 07 17 3B 05 00 00 00 38 2C 00 00 00 02 7B 72 12 00 04 6F 14 00 00 0A 17 6F 3F 02 00 0A 38 1B 00 00 00 02 7B 72 12 00 04 6F 14 00 00 0A 16', True, True,  0) then
    begin
      WriteB(Cheat[4],'02 28 4C 15 00 06 02 03 7D 7A 12 00 04 03 0B 07 16 3B 22 00 00 00 07 17 3B 05 00 00 00 38 2C 00 00 00 02 7B 72 12 00 04 6F 14 00 00 0A 17 6F 3F 02 00 0A 38 1B 00 00 00 02 7B 72 12 00 04 6F 14 00 00 0A 17', 0);
         PlaySound('TICK2',0,SND_ResOURCE or SND_ASYNC);
         sProgressBar1.Position := 0;
         Timer5.enabled := False;
         sButton4.Enabled := False;
    end
   else
   begin
    MessageBox(Handle, 'Не удалось активировать!', 'Error', MB_OK +
      MB_ICONSTOP);
      sprogressbar1.Position := 0;
      Timer5.enabled := False;
   end;
  end
  else
  begin
  //MessageBeep(MB_OK);
  end;
 except
 AntiScanCE_Start
 end;
end;