1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:

var
Dib :PBitmapInfoHeader; // Zeiger auf den Info Header des DIB
                                     // oder auch der Start der DIB
Bits :PByte;                    // Zeiger auf die Pixel des DIB
ColorTableSize:longint;    // Grösse der Farbpalette
Bitmap :HBitmap;           // Handle der Ergebnis Bitmap (DDB)
DC :HDC;                      // Device Context

// generiere eine Zeiger auf den Info Header der DIB
Dib:=PBitmapInfoHeader(GlobalLock(hDib));

// jetzte könnte ich erstmal Prüfen, ob der Zeiger NIL hab jetzt aber
// keine Lust dazu

// Bereche die größe der Farbpalette
ColorTableSize:=longint((DibNumColors(Dib)*sizeof(TRGBQuad)));
// Generiere einen Zeiger auf das Array mit dem eigentlichen
// Inhalt (Pixel) der DIB
Bits:=addr(PBitmapInfo(Dib)^.BmiColors);
Bits:=pointer(longint(bits)+ColorTableSize);

// Devicecontext für das aktuelle Fenster holen
// Handle ist ein Fenster Handle (Typ HWND)
DC:=GetDC(Handle);

// DIB in eine DDB kopieren 
// Außerdem gehe ich hier von einer Schwarzweissbitmap aus
  BitMap:=CreateBitmap(dib^.biWidth,dib^.biHeight,1,1,nil);
  SetDIBits(DC,BitMap,0,dib^.biHeight,PChar(Bits),PBitmapInfo(Dib)^,DIB_RGB_COLORS);

// Devicecontect wieder freigeben
ReleaseDC(Handle,DC);

// Zeiger auf den Globalen Speicher freigeben
GlobalUnlock(HDib);

// Bitmap enthält jetzt einen Handle auf DDB