Cheat Engine

[JWP Programs]

Before write this, I can't use english very well.
so please understand well..
----------------
Hi. I'm a person who wonder pointer.
I wrote this source.
______
var adr, value, empty, adr2, value2, empty2:dword;
begin
adr:=strtoint('$'+edit1.Text);
readprocessmemory(getcurrentprocess, pointer(adr), @value, 4, empty);
adr2:=value;
readprocessmemory(getcurrentprocess, pointer(adr2), @value2, 4, empty2);

edit2.Text:=inttohex(adr, 8)+' '+inttohex(value, 8);
edit3.Text:=inttohex(adr2, 8)+' '+inttostr(value2);
end;
________

Edit1 means the original address.
and adr2 means the value of original address.
and value 2 means the final value.
so is that correct?
I think that wants to offset..
but I don't know how to get the offset.
so the question is "How to get offset of the address?"
I want to know that.
not just use CE.
in Delphi source..
Please answer to me.
Thanks for the reading.