CopyPTRtoBYTES alternative in Delphi

[Blup]

Delphi-Quellcode:

 
SelectObject(hTempDc, hDibSecOld); 
DeleteObject(hDibSec); 
DeleteDC(hTempDc);