Hit Speed

unit thread;

interface

uses
  Classes, Windows;

type
  Speed = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
  end;

var
  Hit: Speed;

implementation

procedure HitSpeed;
begin
  asm
    mov [742464Ch + 78h], 1285
  end;
    Sleep(100);
  asm
    mov [742464Ch + 78h], 4101
  end;
    Sleep(15);
end;

{ Speed }

procedure Speed.Execute;
begin
  while true do
    if GetKeyState(VK_Control) < 0 then
  HitSpeed;
end;

end.