Ich habe mir das mal angeguckt. Zum einem ist es sehr umständlich, zu mal du auch interne Funktionen benutzt und zum anderen gibst du Speicher nicht mehr frei, den du mit GetMem alloziierst bzw. du schließt die
Handle nicht mehr, die du mit OpenProcess öffnest.
Ich habe das mal etwas umgeschrieben und verbesser.
Unit im Anhang.