Si se trata de una dirección del mismo proceso, podrías hacer algo así:
Código:
const
BUFFER_SIZE = 1000;
var
PData: Pointer absolute $00400000;
begin
with TFileStream.Create('C:\MEM.DAT', fmCreate) do
try
WriteBuffer(PData, BUFFER_SIZE);
finally
Free;
end;
end;
Saludos!