1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

[...]
var c:pointer;
    i:integer;
[...]
c := pointer([Adresse die im Programmspeicher liegt, zB i oder durch probieren rausfinden]);
repeat
inc(c);
write(chr(integer(c^)));
If integer(c^) > 32 then delay(50);
until keypressed;
end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

var
    P: Pointer;
    MBI: TMemoryBasicInformation;
    FS: TFileStream; //KEINEN TMemoryStream nehmen ;-)
begin
    FS := TFileStream.Create('memdump.img', fmcreate or fmShareDenyWrite);
    try

    P := nil;
    repeat
        // Get the memory information
        if not VirtualQuery(P, MBI, sizeof(MBI)) then
            break;

        // Check if we got what we asked for
        if P <> MBI.BaseAddress then
            break;

        // Check if memory is readable
        // $EE = bitwise all of all access flags with read access
        if MBI.Protection and $EE = 0 then
            break;

        // Actually write the memory dump
        FS.Write(MBI.BaseAddress, MBI.RegionSize);

        // Jump to next memory region
        Inc(P, MBI.RegionSize);
    until P = nil;

    finally
        FreeAndNil(FS);
    end;
end;