Куда утекает память при копировании изображения в буфер обмена

#WM_CAP_START = #WM_USER
 
#WM_CAP_SET_CALLBACK_ERROR = #WM_CAP_START + 2
#WM_CAP_SET_CALLBACK_STATUS = #WM_CAP_START + 3
#WM_CAP_SET_CALLBACK_YIELD = #WM_CAP_START + 4
#WM_CAP_SET_CALLBACK_FRAME = #WM_CAP_START + 5
#WM_CAP_SET_CALLBACK_VIDEOSTREAM = #WM_CAP_START + 6
#WM_CAP_SET_CALLBACK_WAVESTREAM = #WM_CAP_START + 7
 
#WM_CAP_DRIVER_CONNECT        =  #WM_USER + 10
#WM_CAP_DRIVER_DISCONNECT     =  #WM_USER + 11
#WM_CAP_DRIVER_GET_CAPS = #WM_CAP_START + 14
 
#WM_CAP_DLG_VIDEOFORMAT = #WM_CAP_START + 41
#WM_CAP_DLG_VIDEOSOURCE = #WM_CAP_START + 42
#WM_CAP_DLG_VIDEODISPLAY = #WM_CAP_START + 43
 
#WM_CAP_SET_PREVIEW = #WM_CAP_START + 50
#WM_CAP_SET_PREVIEWRATE = #WM_CAP_START + 52
#WM_CAP_GET_STATUS = #WM_CAP_START + 54
 
#WM_CAP_FILE_SAVEDIB          =  #WM_USER + 25
#WM_CAP_SET_SCALE             =  #WM_USER + 53
 
#WM_CAP_SET_CALLBACK_CAPCONTROL = #WM_CAP_START + 85
 
hWnd = OpenWindow(0, 0, 0, 500, 300, "WebCamTest", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
 
If OpenLibrary(0, "AVICAP32.DLL")
 
  hWebcam = CallFunction(0, "capCreateCaptureWindowA", 0, #WS_VISIBLE + #WS_CHILD, 10, 10, 200, 160, hWnd, 0)
 
  SendMessage_(hWebcam, #WM_CAP_DRIVER_CONNECT          , 0 , 0)
  SendMessage_(hWebcam, #WM_CAP_SET_SCALE               , 1 , 0)
  SendMessage_(hWebcam, #WM_CAP_SET_PREVIEWRATE         , 10, 0)
  SendMessage_(hWebcam, #WM_CAP_SET_PREVIEW             , 1 , 0)
  
  Repeat
    SendMessage_(hWebcam,#WM_CAP_EDIT_COPY,0,0)
    img.l=GetClipboardImage(#PB_Any)
    ClearClipboard()
    
    Event = WindowEvent()
    Select Event
      Case #PB_Event_CloseWindow
        End
    EndSelect
  ForEver  
  SendMessage_(hWebcam,#WM_CAP_STOP,0,0) 
  SendMessage_(hWebcam, #WM_CAP_DRIVER_DISCONNECT, 0, 0)
  CloseWindow(hWebcam)
  CloseLibrary(0)
EndIf