Hi LifePower,
to find out if it is my fault I tried a little thing with your Hasteroids Demo.

The bluescreen also appears if I add only one line to your code:

procedure TMainForm.Timer1Render(Sender: TObject);
begin
if (not PowerDraw1.DeviceActive) then Exit;

with PowerDraw1.Device do
begin
Clear(clBlack);

BeginScene();

OEngine1.Render(VScreen1);
PEngine1.Render(VScreen1);

TextureMap(Images1[2], pBounds4(100, 100, 64, 64), cColor1({clWhite}0), tPattern(0), effectSrcAlpha);

Fonts1[0].TextOut('PixelCol: ' + IntToStr(Images1[2].Pixels[10,10,0]), 4, 14, $FF00FF00);


Fonts1[0].TextOut('FPS: ' + IntToStr(Timer1.FrameRate), 4, 4, $FF00FF00);
Fonts1[0].AlignedOut('Press ESC to exit, SPACE to switch Hardware/Software', 0, 440, taCenter, taBeginning, $FF00FF00);
Fonts1[0].AlignedOut('and finally, ALT + ENTER to switch from windowed to full-screen mode.', 0, 458, taCenter, taBeginning, $FF7FEF00);

EndScene();


Present();
end;
end;

Am I doing something wrong?

Here my PC specs:

Toshiba TECRA S1
Centrino 1,7 Ghz
ATI Mobility Radeon 9000 (latest driver)
Windows XP Prof (latest updates)
Direct X 9.0c

I did not try it on other PCs. This will be the next step to find out more.
But since this is my developement machine, I am very interested in finding out the reason why Pixels does not work here.

Greetings,
Dirk