Sofern dein Stream ein MemoryStream ist und PSaveArray einfach nur ein Pointer auf ein ByteArray ist, müsste folgendes funktionieren:
Delphi-Quellcode:
SetPixelData(
Pointer(NativeUInt(Stream.Memory) + SizeOf(TBitmapFileHeader)),
Pointer(NativeUInt(Stream.Memory) + SizeOf(TBitmapFileHeader) + SizeOf(TBitmapInfoHeader)));