Cheat Engine

[onlyus]

{
procedure TForm1.Button1Click(Sender: TObject);
var
hProcess : THANDLE;
Mbi : Memory_Basic_Information;
Start, Finish : Integer;
Buffer : Pointer;
temp : SIZE_T;
begin
Start := $00400000;
Finish := $00900000;
hProcess:= OpenProcess(MAXIMUM_ALLOWED, FALSE, GProcName('notepad.exe'));
While Start <= Finish do begin
VirtualQueryEx(hProcess, Pointer(Start), mbi, sizeof(mbi));
if ((mbi.RegionSize > 0) and ((mbi.Type_9 = MEM_IMAGE) or
(mbi.Type_9 = MEM_PRIVATE)) and (mbi.State = MEM_COMMIT) and
((mbi.Protect = PAGE_WRITECOPY) or (mbi.Protect = PAGE_EXECUTE_WRITECOPY)
or (mbi.Protect = PAGE_EXECUTE_READWRITE) or
(mbi.Protect = PAGE_READWRITE)))
then begin
GetMem(Buffer, mbi.RegionSize);
ReadProcessMemory(hProcess, mbi.BaseAddress, @Buffer, mbi.RegionSize, temp);
Memo1.Lines.Add(Inttohex(Start, );
FreeMem(Buffer);
end;
Start := DWORD(mbi.BaseAddress) + mbi.RegionSize;
Sleep(1);
end;
CloseHandle(hProcess);
end;
end.
}

This source does not read a good memory.
What's the problem:?