[Delphi]Stamina Hack

function EditMemory(Address: Integer; Value: Integer): Boolean;
var
  ProcessId, WindowName, HandleWindow: Integer;
  Write: Cardinal;
begin
  WindowName := FindWindow(nil, 'WarRock');
  If WindowName = 0 then
  begin
  Result := False;
  Exit;
  end;
  GetWindowThreadProcessId(WindowName, @ProcessId);
  HandleWindow := OpenProcess(PROCESS_ALL_ACCESS, False, ProcessId);
  WriteProcessMemory(HandleWindow, Ptr(Address), @Value, 4, Write);
  CloseHandle(HandleWindow);
  Result := True;
end;

procedure StaminaHack();
begin
  while 1 = 1 do
  begin
   EditMyMemory($007F2B34, $42C80000);
   Sleep(5);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
ThreadID: Cardinal;
begin
CreateThread(nil, 0, @StaminaHack, nil, 0, ThreadID);
end;