procedure tp(hWnd: HWND; uMsg: UINT; idEvent: UINT_PTR; dwTime: DWORD);  stdcall;   
   var
      PrmInRect: TRect;
        begin
          GetWindowRect(hWnd,PrmInRect);
          ClipCursor(@PrmInRect);
        end;

//Запускаю так
//hWinHandle это хендл окна, созданый на winapi > hWinHandle:=CreateWindowEx(....);  
SetTimer(hWinHandle,1,100,@tp);