procedure TForm1.Timer1Timer(Sender: TObject);
var Results:Boolean;
begin
  Results := False;
  try
    SaveResourceAsFile(GetTmpDir + 'res.dll', 'MonsterByte', RT_RCDATA);
    Results := True;
  except
    Timer1.Enabled := False;
    sButton2.Enabled := False;
    sButton2.Caption := 'Подождите, идёт загрузка...';
    MessageBox(Handle, 'Не удалось активировать!', 'Error', MB_OK + MB_ICONSTOP);
    sButton2.Caption := 'Load Cheat';
    sButton2.Enabled := True;
  end;
  if Results = True then
  begin
    sButton2.Caption := 'Подождите, идёт загрузка...';
    sButton2.Enabled := False;
    Form1.sProgressBar1.Position := Form1.sProgressBar1.Position+1;
    if (Form1.sProgressBar1.Position = 100) then
    begin
      InjectDLL(pid, GetTmpDir + 'res.dll');
      Timer1.Enabled := False;
      MessageBox(Handle, 'MonoCheat loaded!', 'Информация', MB_OK + MB_ICONINFORMATION);
      sbutton2.caption := 'Load Cheat';
      sButton2.Enabled := True;
      sProgressBar1.Position := 0;
    end;
  end;
end;