Ja, das wars ... Danke für Eure Hilfe. Hier nochmal die bereinigte Routine, falls ein anderer mal vor einem ähnlichen Problem steht.
Delphi-Quellcode:
var i: Integer; b: Word; TempMap: TBitmap32; ms: TMemoryStream; P: PColor32;
begin
ms := TMemoryStream.Create; ms.LoadFromFile('Pic.raw'); ms.Position := 0;
with TempMap do begin SetSize(150, 150); P := PixelPtr[0, 0];
for i := 0 to Width * Height - 1 do begin ms.ReadBuffer(b, 2);
P^ := Color32(b and $7C00 shr 7, b and $3E0 shr 2, b and $1F shl 3);
Inc(P);
end;
DrawTo(FotosImage.Bitmap, 4, 4, Rect(0, 0, 150, 150));
end;
end;
Dies dürfte wohl auch die schnellste Lösung sein. Im Anhang das korrigierte Bild.