Диапазон адресов

[xRamzeSx]

Привет всем.

Есть процесс, *.exe.
В нем если по-копаться той же самой ArtMoney, можно найти нужный адрес, к примеру $00123ABC.

Заменить значение на конкретном адресе я могу:

procedure TForm1.Button1Click(Sender: TObject);
var
res:int64;
begin
  res:=0;
  write_value($00123ABC,4,res);
end;

Вопрос вот в чем.. Как можно захватить диапазон адресов, то есть взять тот же самый $00123ABC и разбить его на 2 части: $0012 и 3ABC. Мне нужно заменить весь диапазон из первых 4-х цифр: от $00000000 до $99990000 и к нему прибавить (+3ABC) соответственно.

Должно получиться что-то типо этого:

var
MASS:тип;
begin
  MASS:= от $00000000 до $99990000;
  write_value(MASS+$3ABC,4,res);
end;

Попробовал вот так вот, запускается, но не работает:

procedure TForm1.Timer1Timer(Sender: TObject);
var
res:int64;
i:integer;
begin
  res:=0;
  for i:= $00000000 to $99990000 do
  read_value(i+$3ABC,4,res);
  Label1.Caption:=''+inttostr(res);
    begin
      if Label1.Caption='0' then
        Label2.Caption:='Off';
    end
end;

Help...

[xRamzeSx]

Люди, помогите пожалуйста.. В чем ошибка?

[phomm]

for i:= $00000000 to $99990000 do
 begin  
read_value(i+$3ABC,4,res);
  Label1.Caption:=''+inttostr(res);
   // удален бегин
      if Label1.Caption='0' then
        Label2.Caption:='Off';
    end