[NumLock]

Код:

var
  hWnd: THandle;
  dc: HDC;
begin
  hWnd:=GetForegroundWindow;
  dc:=GetDC(hWnd);
  try
    BitBlt(Canvas.Handle, 0, 0, 100, 100, dc, 0, 0, SRCCOPY);
  finally
    ReleaseDC(hWnd, dc);
  end;
end;