Nach CopyMemory werden Daten nicht übernommen

[EWeiss]

Nach dem kopieren des einen auf das andere Array werden die Daten im neuen nicht korrekt übernommen.
Was könnte hier schief laufen.?

Delphi-Quellcode:

    BitmapStream.Position := 0;
    Background.LoadFromStream(BitmapStream);
    GetObject(Background.Handle, SizeOf(Bmp), @Bmp);

    size := Bmp.bmWidth * Bmp.bmHeight * Bmp.bmBitsPixel;
    psa  := SafeArrayCreateVector(VT_UI1, 0, size);

    psa.cDims := 2;
    psa.cbElements := 1;
    psa.fFeatures := 0;
    psa.cLocks := 0;
    psa.pvData := Bmp.bmBits;
    psa.rgsabound[0].lLbound := 0;
    psa.rgsabound[0].cElements := Bmp.bmWidth;

    CopyMemory(PpixelDataArr, psa, Bmp.bmBitsPixel);

Eigentlich sollten jetzt alle Daten vom psa Array sich im PpixelDataArr befinden.
Die ersten 4 Einträge ja.. der rest aber nicht.

gruss