[delphi.com.ar]

Si se trata de una dirección del mismo proceso, podrías hacer algo así:

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!