A lenti példa a GetDC(0) Windows API függvény által visszaadott DC-t használva a WinAPI rajzoló
funkciókkal a Windows asztalra rajzol egy ferde fekete vonalat. 

procedure TForm1.Button1Click(Sender: TObject);
var dc : hdc;
begin
dc := GetDc(0);
MoveToEx(Dc, 0, 0, nil);
LineTo(Dc, 300, 300);
ReleaseDc(0, Dc);
end;
DC (Device Context) - Kapcsolat egy windows alkalmazás, egy eszközmeghajtó (driver) és egy kimeneti
eszköz (pl. képernyő) között.
function GetDC(Wnd: HWnd): HDC; - visszaadja egy megadott ablak kliensterületére vonatkozó DC
kezelőjét (Handle).
function ReleaseDC(Wnd: HWnd; DC: HDC): Integer; - felszabadítja az adott DC-t, hogy azt más
alkalmazások is használhassák.
function MoveToEx(DC: HDC; nX, nY: Integer; Point: PPoint): Bool; - az aktuális pozíciót az x és y
paraméterekben megadott pontra helyezi.
function LineTo(DC: HDC; X, Y: Integer): Bool; - az aktuális pozíciótól a megadott pontig egy
vonalat húz és az aktuális pozíciót a paraméterben megadott pontra állítja.