I added some more functions. Partly Implemented SelectObject Added ExTextOut Added GetTextExtentPoint Added TCanvas.TextExtent/TextWidth/TextHeight Added TSize and HPEN Added CreateBitmap (beeing a GDIObject) Marc