???

unit Source;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, d3dx9, ExtCtrls;

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    Button1: TButton;
    Button2: TButton;
    CheckBox1: TCheckBox;
    Timer1: TTimer;
    CheckBox2: TCheckBox;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Coord: TD3DXVector3;
  Enemy: TD3DXVector3;

Const
  Base = $1400000 + $11069BC;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Coord := PD3DXVector3(PDword(Base)^+$88)^;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  PD3DXVector3(PDword(Base)^+$88)^ := Coord;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Enemy := PD3DXVector3(PDword(Base)^+$3ac)^;
  PD3DXVector3(PDword(Base)^+$88)^:=Enemy;
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
Timer1.Enabled:=Not Timer1.Enabled;
end;

end.